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TWO  Complete  3D  Graphics  Programs 
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Pro   'MIDI  Studio 


The  most  powerful 
performance  and  record- 
ing software  on  any 
computer,  Tfie  recording 
studio-like  environment  provides  com- 
plete facilities  for  routing,  recording, 
editing,  transposition  and  playback  of 
any  musical  performance.  As  new 
modules  are  introduced,  you  can  "install" 
them  at  any  time.  Music  can  be  per- 
formed by  the  internal  sampled  sound 
synthesizer,  or  with  any  external  MIDI 
equipment.  Record  from  the  QWERTY 
keyboard  or  any  external  MIDI  source, 
including  keyboards,  guitar  and  pitch 
followers.  Synchronize  with,  or  provide 
MIDI  clock  information,  including  MIDI 
Song  Pointers,  The  complete  flexibility 
of  the  system  makes  your  imagination 
the  only  limit  to  its  power. 

Number  of  notes  and  tracks  deter- 
mined by  available  memory 

MIDI  patch  panel  links  program 
modules 

Install  new  modules  at  any  time 

Up  to  16  internal  instruments  at  one 
time 

•  Complete  sample  system  with  editing, 
looping,  ADSR  envelopes,  velocity 
sensitivity,  and  pitchbend. 


Up  to  160  sampled  sounds 
at  one  time 

•  Save  and  load  IFF  note 
and  sample  files 

•  Quantize  to  any  multipleof  MIDI  clock 
beats 

•  "Match"  mode  eases  learning  of  a  song 

•  Complete  MIDI  sequence  and  song 
editing 

•  Route,  merge,  split,  or  bounce  any 
track  to  any  other. 


MIDI     Interface 


Necessary  for  any  pro- 
gram which  supports 
MIDI  to  communicate 
with  MIDI  equipment. 


•  Completely  compatible  with  the 
standard  Amiga  MIDI  interface 

•  MIDI  In,  Out.  and  Thru  connectors 

•  Plugs  into  the  serial  port 


Sound     Digitizer 


With  the  SoundScape 
Sound  Digitizer,  any  sound 
may  be  sampled  and 
modified  by  the  Amiga, 
including  voice.  IFF  File  compatibility 
enables  these  samples  to  be  used  as 
musical  instruments,  sound  effects, 
or  speech  with  any  IFF  compatible  music 
or  animation  system. 


•  High  quality 

•  Highest  possible  fidelity  from  the 
Amiga 

•  Stereo  or  mono 

•  Variable  sample  rates 

•  Mike  and  line  inputs 

•  Digitally  controlled  volume  on  each 
channel 

•  IFF  Sample  File  compatible 

•  Software  included  for  sampling, 
editing,  and  MIDI  performance 
functions 


Available  From  Your  AMIGA  Dealer. 

SoundScape  Pro  MIDI  Studio 

$149,00 

AMIGA  MIDI  Interlace 

$  49.00 

SoundScape  Audio  Digitizer 


$  99.00 
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MetaScope:  The  Debugger 


MetaScope  gives  you 
everything  you've  always 
wanted  in  an  application 
program  debugger: 

•  Memory  Windows 

Move  through  memory,  display 
data  or  disassembled  code, 
freeze  to  preserve  display  and 
allow  restoration. 

•  Other  Windows 

Status  windows  show  register 
contents  and  program  state  with 
ireeze  and  restore;  symbol. 
hunk,  and  breakpoint  windows 
list  current  deiinitions. 

•  Execution  Control 
Breakpoints  with  repetition 
counts  and  conditional 
expressions;  trace  for  all 

insi ructions  or  subroutine  level, 
both  single- step  and  continuous 
execution. 

•  Full  Symbolic  Capability 
Head  symbols  from  files,  define 
new  ones,  use  anywhere. 


Meicflbols  I 

A  comprehenflive  set  of  tools  to 
cdd  your  programming  (full 
source  included): 

(etoMoke 

Program  mointenance  utilitj'. 

Irep 
sphisiicotod  pattern  matching 

itiUty. 

>ifi 

Source  file  compare. 
E  •  Filter 

Text  file  filter. 
Comp 

Simple  file  compare. 
Dump 

File  dump  utility. 
B  •  MeiaSend 

Amiga  to  PC  file  transfer. 

Mel^ecv 

PC  to  Amiga  file  tronsfeiv 


Metadigm  products  are 
designed  to  fully  utilize  the 
capabilities  of  the  Amiga™  in 
helping  you  develop  your 
programs.  If  you're 
programming  the  Amiga,  you 
can't  afford  to  be  without  them. 

Dealer  Inquiries  Welcome 


Powerful  Expression 

Evaluation 

Use  extended  operator  set 

including  relationals,  all 

assembler  number  formats. 

Direct  to  Memory  Assembler 
Enter  instruction  statements  for 
direct  conversion  to  code  in 
memory. 

and  More! 

Log  file  for  operations  and 
displays,  modify/search/fill 
memory,  etc. 


MetaScribe: 

The  Editor 

MetaScribe  has  the  features 
you  need  in  a  program  editor: 

•  Full  Mouse  Support 

Use  for  text  selection,  command 
menus,  scrolling  —  or  use  key 
equivolents  when  more 
convenient. 

•  Multiple  Undo 

Undo  all  commands,  one  at  a 
time,  to  level  limited  only  by 
available  memory. 

•  Sophisticated 
Search/Replace 
Regular  expressions, 
forward/backward,  full  file  or 
marked  block. 

•  Multiple  Windows 
Work  with  different  files  or 
different  portions  of  the  same 
file  at  one  time. 

•  Keystroke  Macros 

Record  keystroke  sequences  or 
predefine,  assign  to  keys  you 
choose. 

•  and  Morel 

Copy  between  files,  block 
copy/move/delete,  set  tabs  and 
margins,  etc. 


Metadi^rp,  Ii>c. 


Eim 
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From  The  Editor: 


Birth  of  a  Cover: 


One  of  the  more  difficult  tasks  at  the  magazine  is  the  design 
of  our  cover.  Oh,  I  know.  I  can  hear  you  muttering  that  our 
simple  covers  could  not  possibly  take  a  great  deal  of  effort. 
They  are  so  simple,  sometimes  misspelled,  and  for  the  first 
few  issues,  the  same  color. 

Well,  although  simple,  our  covers  are  a  result  of  hours  of 
attempts  and  failures  at  catching  just  the  right  concept.  We 
push  and  learn  what  our  printer  can  do  and  what  we  can 
accomplish. 

Last  issue  we  began  publishing  AC  with  a  four  color  process 
cover  (this  is  the  same  as  some  of  the  "bigger"  magazines). 
We  were  responding  to  the  cry  from  advertisers  for  color 
space  in  the  magazine.  We  were  certain  that  the  layout 
would  be  simpler,  now  we  could  just  take  a  picture  and  let  the 
printer  do  the  separations.  Yeah ! 

It  didn't  work  that  way.    It  seems  tha  more  you  can  do,  the 

more  you  want  to  do. 

We  now  had  the  tools,  but  we  were  not  content.  We  felt  we 
should  push  a  little  harder.  Each  member  of  the  staff  had 
their  own  input  as  to  what  we  should  do  for  the  cover.  No  one 
was  extremely  satisfied  with  any  of  the  others'  ideas. 

Therefore,  in  the  middle  of  the  night,  I  took  their  suggestions 
put  them  on  the  cover  and,  in  the  morning,  quietly  gave  them 
to  the  printer.  Everyone's  reactions?  "Well,  it  was  OK." 

So  I  vowed  this  cover  would  be  better,  stronger,  and  with  a 
lot  less  dessention.  However,  I  made  one  mistake.  This 
issue  was  intended  as  the  graphics  issue  and  the  cover 
should  utilize  some  of  the  tools  and  equipment  available  to 
the  Amiga  artist.  Great. 

The  Amiga  is  not  quite  a  year  old,  but  do  you  know  how  many 
tools  their  are  for  graphics?  Just  existing  equipment  on  the 
shelves  today  can  take  months  to  test  and  enjoy. 

We  expanded! 

Early  on,  we  discovered  we  were  not  able  to  show  the 
graphic  Amiga  in  our  old  standard  64  pages,  so  we  have 
expanded  to  a  new  size  of  100  pages  total.  Yet,  even  at  100 
pages,  we  barely  had  enough  room  for  some  of  the  better 
graphic  programs  and  listings. 

Graphic  programs  and  reviews,  took  up  the  rest  of  the  space 
and  we  were  not  able  to  show  some  of  the  new  hardware 
available. 

Kurta  Corp.  has  a  line  of  digitizing  products  that  they 
produced  and  used  in  the  IBM  and  Macintosh  markets.  In 
the  early  stages  of  the  search  for  products  on  the  Amiga,  we 
contacted  them  and  received  a  Series  One™  Tablet  and  a 


Penmouse.  Unfortunately,  the  software  drivers  for  the 
Amiga  took  several  months  longer  then  they  had  at  first 
thought. 

When  the  new  drivers  did  come  and  all  the  bugs  were  worked 
out,  we  were  thrilled  with  the  quality  of  the  Series  One™ 
tablet.  We  were  drawing  maps  and  diagrams  and  looking 
continually  for  an  application  in  the  magazine. 

I  bring  up  the  Kurta  tablet  to  show  you  a  great  product  that  is 
not  reviewed  in  this  issue.  Why?  We  ran  out  of  room.  We 
will  move  its  review  as  well  as  a  few  others  back  to  our  next 
issue. 

The  Task 

So,  when  we  were  looking  at  the  cover,  we  were  hit  by  a 
double  problem.  Not  only  are  we  looking  at  four  color  work, 
but  we  should  demonstrate  some  of  the  capabilities  of  the 
Amiga  products. 

We  did! 

The  cover  picture  (after  several  arguments  over  content) 
was  produce  with  Digi-View  from  NewTek  in  Topeka  Kansas. 
We  placed  a  group  of  the  graphic  programs  available  on  the 
table,  with  a  few  of  our  other  "art  tools"  and  took  the  picture 
in  the  required  three  passes.  The  hardest  part  was  focusing 
the  camera  and  getting  enough  light  on  the  subject. 

Once  we  had  saved  the  picture,  we  tried  a  hardcopy  printout, 
but  we  were  not  able  to  maintain  the  brightness  of  the 
monitor  display. 

Our  next  choice  was  ImageSet,  ImageSet  of  San  Francisco 
advertises  a  service  that  will  produce  a  35mm  slide,  poster, 
or  even  a  four  color  separation  of  your  Amiga  IFF  file  straight 
from  your  disk  or  via  modem. 

We  opted  for  a  Federal  Express  delivery  rather  than  a 
modem  transfer,  (the  Federal  Express  driver  was  here  before 
we  had  the  package  sealed).  We  shipped  the  package  on 
Friday,  ImageSet  confirmed  receipt  on  fvlonday  and  we 
received  the  final  product  on  the  next  fvlonday. 

The  picture  was  as  bright  as  the  original  screen  and  should 
be  reproduced  on  our  cover.  With  a  little  masking  and  text 
additions  our  masterpiece  was  ready.  Yet,  as  I  write  these 
words,  the  art  is  on  the  table  beside  me,  and  we  still  do  not 
know  how  the  final  object  will  appear.  Wish  us  luck. 


Do/Hicks 
Managing  Editor 


New  Amiga  Products  From 
The  Developers  of  Amiga  G 


Amiga  C  Compiler — $14995 
Ever\tliing  you  need  to  de\"elop  pro- 
grams on  die  Amiga,  uicludiiig  a  RilI 
set  of  liliniries,  header  files,  iui  object 
module  disassembler,  mid  sample  C 
prc^rams. 

Unicalc — $79.95  A  complete  spread 
sheet  package  for  Amiga,  witli  tlie  [X)wer- 
ful  features  made  jxjpuku'  by  progranis 
such  as  VLsiCalc,  Sujxm-CiIc,  and  LjOtas 
1-2-3.  Unicalc  provides  many  display 
options  luid  generates  ]:)ri!ited  rejions 
in  a  variet\'  of  fomiaLs  :uid  print  image 
files.  Supi^ons  8192  rows  of  256  columns, 
and  includes  complete  on-line  help. 

Lattice  MacLibraiy— $10000 
The  Lattice  MacUbnuA-  is  a  collection  of 
more  tliim  sLxt)'  C  functions  enabling  \"ou 
to  rapidly  convert  your  Macintosh  pro 
grams  tt)  am  on  the  Amiga,  this  allows 
you  to  c}uickly  and  efficiently  take 
adv^antage  of  the  powerful  capabilities 
of  the  Amiga. 

Lattice  Make  Utility— $125  00 

Automiited  produa  generation  utilit\' 
for  Amiga,  similar  to  UNIX  Make,  LMK 
rebuilds  complex  programs  with  a  single 
command.  Specif\'  the  relatioasliips  of 
the  pieces,  and  automatically  rebuild 
your  system  the  same  wa\'  ever\'  titne. 


<^ 


Lattice 


Text  utilities— $75.00  Eight  soit- 
ware  tools  for  managing  text  files,  GREP 
searches  for  specified  ckiracter  strings; 
D//y  comp:u-es  files;  £\7?^Cr creates  a 
list  of  files  to  l^e  exti~acted  ft'om  tlie  cur- 
rent direaoA';  BUILD  creates  ne^-  files 
from  a  batch  list;  WTi:?  dLs|:)la\^  a  cliaracter 
count  :uui  a  checksum  of  a  .sjoecified  file; 
ED  is  a  line  cxiitor  w-hich  utilizes  outj^ut 
from  otlier  Text  Utilities;  SPIAT'is  a 
search  and  replace  functi(.)n;  and  FIl£S 
lists,  copies,  erases  or  remo\'es  files  or 
entire  direaoA*  struaures. 

Lattice  Screen  Editor  (LSE)— 

$  1 00,00  Fast,  flexible  ;uid  eas\-  to  laim 
editor  designed  specificxilK'  for  program- 
mers. LSE's  multi-window  enxironment 
provides  tlie  editor  funcik)ns  such  as 
bkxrk  mo\es,  pattern  searches,  and  "cut 
and  paste"  Plus  prognunmer  features 
such  as  lUI  error  tracking  mcxle  and  tliree 
assembh-  kuiguage  input  mcxies. 


OTHER  AMIGA  PRODUCTS 
AVAILABLE  FROM  LAITICE: 

Panel:  Screen  Li>-out  Utilities — $195.00 

Cross  Compiler: 

MS-DOS  to  Amiga  C— $250.00 

dBCm: 

libraA'  of  ckita  base  functions — $150.00 

Cross  Reference  Generator —  $45.00 

With  Lattice  products  you  get  Lattice  Ser- 
lice  including  telephone  support,  notice 
of  new  prcxlucLs  mid  enliancemenLs,  and 
a  mone\'-back  guarantee.  Corporate 
license  agreements  available. 


Phone  (312)  858-7950    TXTC 910-291-2190 

INTERi\ATIONi\L  SALES  OI-TICES: 

Benelux:  De  Vooght.  Phone  ( 32  )-2-720-91  -28.     England:  Roundliill.  Phone  ( 0672  )  54675 

Japan:  Ufeboat  Inc.  Phone  (03)  2934711     France:  SFL  Phone  (1)46-66-1 1-55 
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Letters  i 


Dear  Sirs: 

The  story  of  Amazing  CkDmputing™  is 
amazing  to  me  as  revealed  in  your 
response  to  a  letter.  Thank  you  for 
your  efforts!  I  hope  the  god  of 
entrepreneurs  blesses  you  well  and 
soon  enough  1o  avert  burnout  from  a 
sacrificial  level  of  devotion. 

The  scope  and  quality  of  Amazing 
Computing™  and  the  service  behind  it 
is  great.  I  am  especially  glad  to  see  that 
Amiga™  notes  by  Rick  Rae  will  be  a 
regular  feature.  I  would  like  very  much 
to  make  music  with  the  Amiga™  and  am 
not  yet  even  sure  what  kinds  of  things 
are  needed  to  get  done  and  what 
they're  called. 

Persevere,  live  long  and  prosper. 

Thank  you, 
David  Walton 
Ocala,  FL 

Thanks  for  the  kind  words 


Dear  Amazing  Computing™, 
Recently,  while  on  vacation,  1  slopped 
at  a  computer  store  in  Minot,  North 
Dakota  and  discovered  your  magazine. 
They  had  the  first  five  issues  and  I 
bought  all  five.  Thanks. 

Sincerely, 

Jim  Williams 
Coralville,  Iowa 


Dear  Rick  {Wirch). 

I  was  pleased  to  see  your  comment  in 
the  Marauder  review  concerning 
software  that  requires  you  to  reboot  off 
their  disk  to  use  it.  I  have  been  making 
the  same  point  locally  and  everyone 
thinks  I'm  crazy.  I  hope  as  the  Amiga™ 
becomes  more  established  and 
multitasking  more  commonplace  that 
software  companies  will  get  the  point. 

I've  spent  quite  a  bit  of  time  with  various 
software  packages  figuring  out  how  to 
use  them  without  rebooting.  Deluxe 
Print™  was  especially  complicated.  By 
the  way,  if  you  haven't  gotten  around 
to  it,  you  can  put  Marauder™  in  any 
directory  on  any  disk  and  run  it  if  you  (1) 
move  its  auxiliary  files,  too;  (2)  CD  to  its 
directory  before  running  it;  and  (3)  (the 
sneaky    part)     move    a    font    called 


HexFont  into  your  fonts  library. 
Marauder™  uses  this  font  for  the  little 
display  of  tracks  in  the  lower  right  of  the 
screen  and  freaks  if  it  doesn't  find  it  on 
the  SYS;  disk. 

As  you  probably  know  by  now. 
Marauder™  doesnt  work  with  programs 
that  achieve  copy  protecting  by  (ugh) 
changing  disk  speed,  such  as  Deluxe 
Print™.  If  you  call  their  hotline  they  tell 
you  how  to  take  the  disk  apart  and 
twiddle  a  pot  --  not  a  very  elegant 
solution. 

Nathan  Walpow 

Los  Angeles,  CA 


Dear  Amazing  Computing™, 
I'm  writing  to  thank  you  for  publishing 
Mr  Viveiros'  article  on  building  an  IBM 
drive  connection  which  appeared  in 
the  May  issue  of  your  magazine.  I 
would  also  like  to  tell  you  about  an 
Amazing  thing  that  happened  when 
the  project  was  completed. 

It  started  out  as  a  relatively  uneventful 
project.  All  of  the  components  were 
easy  to  find.  I  did  try  five  electronic 
parts  houses  in  an  attempt  to  find  the 
elusive  23  pin  D  connector.  Everyone 
kept  correcting  me  saying,  "You  mean 
25  pin  don't  you".  I  decided  that  you 
can't  really  buy  "Anything"  in  New  York. 
The  parts  I  got  matched  the 
recommended  ones  exactly  with  two 
exceptions.  One  was  the  fact  that  the 
74LS74  was  a  74LS74A.  The  A 
extension  makes  no  difference  in  the 
operation  of  the  chip  so  1  was  not 
concerned.  The  second  difference 
was  that  I  had  gotten  a  Shugart  SA465 
3AA  5.25  drive  instead  of  the 
recommended  SA  455.  1  thought, 
"Well  it  should  work".  Well  it  didnt  The 
Amiga  wouldn't  even  boot  up  with  the 
drive  hooked  up.  I  doubled  checked  all 
of  the  connections  and  everything  was 
perfect.  The  next  thing  I  did  was  to  play 
around  with  the  jumper  settings  but 
that  did  no  good  at  first  either.  Being  at 
my  wit's  end  it  was  lime  to  get  out  the 
documentation  that  came  with  the 
drive.  There  was  a  single  sheet  of 
paper  that  said  if  this  drive  is  installed  as 
drive  B,  remove  the  terminater  resistor. 
I  had  no  idea  what  that  was  but  there 
was  a  funny  looking  chip  in  a  socket  on 
the    board     so     I     removed     it    and 


continued  my  game  of  trying  various 
jumper  positions. 

I  got  it  to  work!  Now  that  was  good 
news  but  what  1  got  and  what  I  was 
expecting  were  two  very  different 
things.  I  was  expecting  a  5.25  drive 
that  would  work  as  a  360K  IBM  drive 
under  the  transformer  and  would  also 
configure  as  a  440K  drive  under  Amiga 
DOS  1.2.  What  I  got  was  a  360K  IBM 
drive  under  the  transformer  that  would 
also  configure  as  a  720K  IBM  drive 
under  MS_DOS  3.2.  That  was  exciting 
but  this  was  Amazing.  My  new  drive 
auto  configures,  with  absolutely  no 
help  from  nrie,  as  an  830K  Amiga  drive 
under  both  Amiga  DOS  1.1  and  1.2 
Beta.  The  disk  icon  comes  up  on  the 
workbench  screen  and  everything. 
The  operating  systems  seems  to  think 
it's  a  3.5  inch  drive.  The  only  minor 
annoyance  is  that  the  system  doesnt 
recognize  disk  changes  in  DF2:  but 
DOS  1.2  Beta  contains  a  new 
command  called  Diskchange  which 
allows  disk  swapping  in  the  5.25  drive. 
The  Commodore  5.25  needs  the 
Diskchange  command  also  but  it  will 
only  format  to  440K  and  can  only  be 
used  as  an  Amiga  drive  under  DOS 
1.2.  To  prove  that  I  really  had  880K 
available  1  used  Diskcopy  to  copy  a 
Dpaint  slide  show  disk  which  was  95% 
full  from  DFO:  to  DF2:.  Then  I  started 
the  show  and  every  picture  displayed 
perfectly.  Believe  It  Or  Not!  Thanks  - 
AC- 

Joe  Rothman 
Sysopof  A.M.U.G.  BBS 

for  the  Mighty  Amiga 
New  York 


Dear  Mr.  Hicks, 

I  wish  to  discuss  the  subject  of 
standards  for  Amiga  software.  There  is 
appearing  on  the  market  an  increasing 
number  of  software  products  for  the 
Amiga™,  and  many  appear  to  be  simply 
ported  over  from  who  knows  where.  I 
recently,  purchased  by  mail  a  copy  of 
Harvsoft's  Infobase.  If  functions 
basically  as  advertised,  but  it  is 
definitely  not  something  that  takes 
advantage  of  the  Amiga's  capabilities. 
It's  basically  a  simple  file  handling 
package  written  in  AmigaBasic.  All 
display  is  done  in  black  and  white.  It 
makes     no     use     of     the     mouse, 


1,  m' 


muttitasking,  multiple  windows, 
softkeys,  sounds,  animation,  color  or 
number  crunching;  and  it's  painfully 
slow  slow  to  operate.  Also  database 
names  are  limited  to  only  six  characters 
in  length. 

However,  Harvsoft  shouldn't  despair. 
It's  really  up  to  us,  the  Amiga™  users  to 
specify  minimum  standards  of 
acceptability  for  software  written  for  the 
Amazing  Amiga™.  Here  are  some 
features  that  should  be  available  on  ail 
Amiga  software. 

1 .  Color,  and  lots  of  it.  Allow  the  user 
to  adjust  color  displays  to  suit  individual 
tastes.  Remember  that  a  fair  number  of 
people  suffer  from  some  form  of  color 
perception  deficiency  and  may  not  be 
able  to  differentiate  between  certain 
hues. 

2.  Multitasking  should  be  available  on 
word  processors,  spreadsheets,  paint 
programs,  databases  etc.  This  is  one 
of  the  reasons  people  buy  the 
Amiga™,  so  why  have  software  that 
cant  live  up  to  the  machine's 
capabilities. 


3.  The  option  of  using  either  pull  down 
menus  or  keyboard  commands.  Again, 
Amiga™  owners  want  the  flexibility  of 
their  machine  to  be  reflected  in  it's 
software. 

4.  Commercial  software  should  be 
supplied  in  compiled  code,  for  stand 
alone  applications.  Who  wants  to  have 
their  disks  cluttered  up  with 
interpreters?  It  would  be  nice  if  all  ads 
for  software  state  whether  or  not  the 
application  is  compiled. 

In  order  to  ensure  that  we  the  users 
can  locate  quality  software  that  makes 
full  use  of  the  machine's  awesome 
power  and  flexibility,  I  suggest  that  a 
set  of  Amiga  User  Acceptability 
Standards  be  defined.  This  could 
consist  of  nothing  more  than  a 
checklist  of  features  that  users  are 
required  or  desirable  on  various 
categories  of  software. 

This  raises  the  question  of  who  will 
develop  such  a  standard?  Will  Amazing 
Computing™  do  it?  You  have  the 
required  access  to  Amiga™owners,  as 
well  as  some  very  talented  writers.     I 


■  Letters 

hope  you  will  consider  taking  on  such  a 
survey/project.  The  standard  when 
completed  would  be  a  valuable 
resource  when  making  objective 
software  comparisons. 

Sincerely, 
Charles  Nielsen 
Sydney,  N.S. 
CANADA 


The  questions  of  standards,  while  at 
first  seems  apropriate,  can  lead  to  a 
stale  view  of  the  product's  versatility. 
The  MS  Dos  community  continualy 
chants  'standards"  while  the  Amiga 
community  has  answered  with 
innovation.  Where  we  agree  with  you 
in  the  spirit  that  all  software  should 
perform  with  some  degree  of 
professionalism,  there  must  be  room  to 
manuver  and  develope  new  means  for 
old  ends. 

However,  AC  is  only  one  voice  and  we 
welcome  our  other  readers  comments 
and  suggestions. 

•AC- 


Conversation  With  A  Computer 

(It's  a  lot  of  fun,  a  brain  teaser  and  a  programming  guide  too!) 

"Very  highly  recommended  by  me  is  Conversation  With  A  Computer,  from  Jenday  Software,  a  set 
of  games  and  conversation  ivritten  in  Amiga  Basic,  and  shipped  with  the  source  code  provided.  It  is 
entertaining,  amusing,  thought  provoking,  and  just  plain  fun.  If  you  have  any  interest  in  programming 
in  BASIC  on  the  Amiga,  this  is  a  must  have  for  the  examples." 

—MATTHEW  LEEDS,  Commodore  Microcomputers 

This  program  really  shows  ofif  Amiga's  talents:  lots  of  color  graphics,  mouse  routines,  voice  synthesis,  sound 
and  animation.  The  2,000  lines  of  Amiga  Basic  can  be  listed  to  screen  or  printer.  The  documentation  describes 
in  detail,  module  by  module,  how  it  all  works.  There  is  a  coded  example  of  virtually  every  one  of  Amiga  Basic's 
powerful  features. 

You'll  be  challenged  to  three  mind  games.  Memory  Tfest  will  drive  you  to  drink.  Battle  of  Numbers         ^ 
and  Pt^oard  are  two  of  the  most  elegant  logic  games  of  all  time  It's  your  brain  against  Amiga's  silicon!       ^  ^ 

The  program  is  professionally  packaged  with  comprehensive  tjpeset  documentation.  It  requires      ^  q*^ 
512K.  It  is  not  copy  protected.  Now  includes  an  introduction  to  the  C  language.  ^  c 


JENPAY 

SOFTWARE 

P.O.  Box  4313 

Garden  Grove,  CA  92642 


All  orders  are  sliipped  by  first  class 
mail  within  24  hours  of  receiving 
your  personal  check  or  money 
order. 


/ 
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DEALER  INQUIRIES  INVITED 


(714)  636-3378 


/ 
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PUT  YOU  R  AMIGA  TO  WORK 

with 

DATAMAT 

FULLY  RELATIONAL  DATABASE  MANAGEMENT  SYSTEM. 


Now  with  images  in  IFF  format,  display  with  text/data/voice 
Quickly  build  applications  without  any  program  coding  from 
simple  phone/mailing  list  to  research  to  organization-wide 
information  management 

Self-running  tutorials  created  automatically  for  personnel  training 

Integrate  with  virtually  all  existing  hardware  systems 
Companion  software  with  identical  user-interface  for  MS  DOS, 
XENIX,  UNIX,  VMS,  and  others  available.  Same  application  fits  all 
hardware 


DATAMAT  PARTIAL  SPECIFICATIONS                                                       *■ 

Organization                                        Fully  Menu-driven  Relational 

Database  Management 
System/Application 
Generator. 

Number  of  data  files  per  data 

base                                                   Unlimited 

Data  types                                            13  includes  Image 

in  IFF  Format 

Number  of  characters  per  iield         1,024 
Number  ol  lields  per  record               2,000 

Global  (System)  Fields                        40  user  definable 

9  special  purpose 

Number  oi  characters  per  record      4,000 
Number  of  records  per  (ile                4.3  billion 

Field  checks                                         Mandatory, Type,  Initial  value, 

Value  within  a  specified 
range. 

Multiple  response                              Supports  multiple  responses 

(up  to  an  array  of  nine)  for  a 
single  field. 

Number  of  Relations  per  data 

tile  (simultaneous  R/w  access)         10 

Password  security                              Field  and  data  base  levels 

Calculation  capabilities                     Full  complement  of  23  math 

and  trigonometric  functions 
and  13  logical  operators. 
Automatic  date  and  time 
calculations. 

Data  Entry  -  single  entry  to  multiple  files  and  records.  Import/Export  facility  witti  data  conversion/reorganization. 
Forms  Definition  ■  full  screen  editor  with  mini  word  processor.  Report  Generation  ■  up  to  66  lines  x  132  columns, 
6  level  totaling  with  built  in  summary.  SortJSearch  -  up  to  26  selection  criteria  per  query.  Mass  Editing,  Time 
Saver  Audit  ■  stores  all  key  strokes  used  in  building  application  for  aulomatic  recreation.  Statistics  and  Graphics- 
stepwise  multiple  regression,  standard  statistical  tests  and  analysis;  scatter  plots,  bar  ctiarts.  Custom 
Applications  Generator-  batch/partial  batch  processing;  user-delined  menues;  selt-running  demos. 
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AEGIS  DRAW:  CAD  COMES  TO  THE  AMIGA 


A  Review 

By  Kelly  G.  Adams 

CompuServe  [71 31 0,226] 


Almost  everyone  has  at  least  one  graphics  program. 
Whether  it  is  Electronic  Arts'  Deluxe  Paint  or  Aegis  Images  by 
Aegis  Development,  or  some  other  package  I'm  not  aware  of, 
these  packages  are  sophisticated  and  provide  the  casual  or 
even  (airly  advanced  user  with  tremendous  power. 

What  does  a  CAD  package  give  the  user  to  justify  its  added 
cost?  First  off,  the  user  must  understand  the  difference 
between  bit-mapped  graphics  and  object-oriented  graphics. 
The  simpler  packages  mentioned  above  all  rely  on  bit 
mapped  images:  the  program  itself  has  no  or  little  concept  of 
things  like  circles,  squares,  or  even  lines. 

Once  something  is  on  the  screen,  it  is  treated  as  a  bunch  of 
individual  dots.  The  dots  that  make  up  the  circle  are  exactly 
the  same  as  the  dots  that  make  up  the  square  overlapping  it 
as  far  as  Deluxe  Paint  is  concerned,  and  so  the  program  cant 
separate  the  two  images. 

Aegis  Draw,  from  Aegis  Development,  is  an  object-oriented 
program.  It  treats  each  thing  you  draw  as  an  individual  entity. 
It  stores  something  like  a  circle  as  a  center  point  and  a  radius, 
then  uses  a  mathematical  process  to  draw  it  as  what  we 
recognize  to  be  a  circle. 

With  Aegis  Draw,  I  could  grab  the  circle  or  the  square  and 
move  it  somewhere  else  without  affecting  the  other,  even 
though  they  are  sitting  "on  top  of"  each  other. 

Another  difference  between  object  and  bit  mapped  graphics 
is  that,  because  an  object-oriented  system  treats  each  object 
as  a  mathematical  expression,  those  objects  can  be  plotted 
with  arbitrarily  fine  precision. 

Essentially,  this  means  that  when  you  output  your  work  on  a 
device  of  higher  resolution  than  the  screen  -  a  plotter,  for 
example  -  the  result  will  be  as  perfect  as  the  device  in 
question  allows.  Circles  will  be  as  circular  as  possible, 
diagonal  lines  will  be  as  un-jaggy  as  can  be.  In  general  you 
will  get  the  best  possible  resolution. 

Also,  because  an  object-oriented  package  treats  graphics 
elements  as  mathematical  expressions,  you  can  zoom  in  on  a 
particular  point  and  add  ridiculous  amounts  of  detail. 

This  means  it  is  within  reason  to  have  something  like  a  picture 
of  the  solar  system,  and  be  able  to  zoom  in  on  the  headline  of 
a  newspaper  held  by  a  properly-scaled  graphic  image  of  a 
person  on  the  surface  of  the  planet  Earth! 

All  this  power  comes  at  a  price,  however;  generally,  object- 
oriented  graphics  packages  are  slower  than  bit  mapped 
programs.  Everytime  something  is  displayed,  thousands  of 
calculations  may  take  place. 


Aegts  Draw:  What  Can  It  DO? 

In  my  personal  rating  system,  three  basic  factors  are 
considered  on  a  scale  of  one  to  10,  plus  my  own  "fudge 
score"  (from  one  to  five  stars)  which  expresses  my  personal 
opinion  totally  uncoloured  by  factual  analysis: 

SAP:  State  of  the  Art  Factor,  which  essentially  indicates  to 
what  degree  the  program  takes  advantage  of  the  Amiga's 
power  as  compared  to  other  similar  packages.  It  also 
indicates  how  "innovative"  the  program  is.  This  is  NOT  an 
indication  of  "goodness"  in  a  program,  tt  is  possible  for  a 
package  to  be  "State  of  the  Art"  without  having  much 
substance,  in  my  Ixiok,  at  least.  I'd  give  this  a  7. 

Speed:  Fairly  obvious,  although  this  is  more  a  general 
feeling  than  a  benchmark  of  performance.  I'd  give  this  a  5. 

Performance:  how  well  the  program  carries  out  the  task  it  was 
designed  for.  For  example,  a  graphics  package  with  no  print 
facility  would  not  be  "performing"  very  well  unless  it  was 
never  designed  for  output  and  had  no  need  of  such.  I'd  give 
this  a  7, 

Adams  Score:  my  star  rating;  strictly  personal  opinion,  but 
where  it  differs  significantly  from  what  the  other  scores 
indicate  111  usually  try  to  explain  myself.  Three  stars. 

Product:  Aegis  Draw  Version  1 .0  (f^ay  1 986) 

Manufacturer:  Aegis  Development  *■ 

Notes:  Requires  512k  RAM 

Aegis  Draw  is  a  powerful  but  slightly  flawed  entry  level  CAD 
product  with  at  least  one  or  two  rather  innovative  features.  It 
is  a  workbench  application,  which  means  other  programs  can 
run  at  the  same  time,  within  memory  limitations. 

Compared  to  existing  Draw-type  packages  on  the  market 
such  as  Mac  Draft  for  the  Macintosh,  by  Innovative  Data 
Design,  Inc.,  and  ln*A*Vision  for  the  IBM,  by  Micrographlx, 
PC,  Aegis  Draw  stacks  up  quite  admirably. 

A  point-by-point  comparison  is  out  of  the  question  here,  but 
I'll  list  the  tools  available  in  Aegis  Draw  and  a  few  of  the 
"preferences"  that  can  be  set.  Where  applicable  (ie:  when  I 
feel  in  the  mood),  I'll  draw  a  few  comparisons  between  Aegis 
Draw  and  the  other  machines' equivalents. 

Drawing  Tools:  "Hand  me  that  Protractor..." 

First  off,  a  few  points  about  good  design:  the  guys  at  Aegis 
did  a  nice  job  in  allowing  the  user  to  change  his  mind.  To 
select  a  tool,  you  use  the  familiar  menu  button  to  show  your 
choices  and  select  from  the  pull  down  menus. 

Once  you  start  doing  something,  like  drawing  a  line  or  box, 
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ADFO 

AMIGA  DISK  FILE  ORGANIZER 

Having  trouble  finding  that  file  somewhere  in 
your  slack  of  floppys?  Can't  find  all  the  copies 
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you  press  the  selection  button  to  indicate  a  starting  point, 
such  as  the  center  of  a  circle,  then  move  the  mouse  until  you 
have  the  desired  shape  (for  example,  the  circle  reaches  the 
correct  radius)  then  a  second  press  will  complete  the 
operation.  , 

Pressing  the  menu  button  at  any  time  during  such  an 
operation  cancels  it.  There  is  an  "UnDo"  function  under  the 
Edit  menu  for  when  you  make  larger  mistakes  than  using  the 
wrong  tool. 

Now  onward  to  the  toolbox;  under  the  tools  menu  there  are 
two  columns  of  functions.  The  leftmost  column  consists  of 
the  actual  tools  themselves,  and  the  rightmost  column 
contains  tools  for  manipulating  objects  once  you've  drawn 
them.  A  listfollows,  with  descriptions  where  necessary: 


Tools 


Description 


LINE 

RECTANGLE     .  .... 

POLYGON  -  This  allows  you  to  create  a  multi-sided  shape  by 
stretching  a  set  of  lines  between  points  chosen  one  at  a  lime 
with  the  left  mouse  button. 

FREEHAND  -  Unlike  a  bit-mapped  graphics  system,  freehand 
drawing  is  the  least  used  function.  It  uses  a  lot  of  memory  (it 
is  stored,  t  believe,  as  zillions  of  line  segments  of  arbitrarily 
small  length). 


Draw  Review  =^^^^^^^^^=^==:^= 

ARC  -  In  Aegis  Draw,  the  user  selects  the  center  of  the  arc, 
and  the  beginning  and  end  points.  Other  packages,  such  as 
Pro  Design  II  by  American  Small  Business  Computers  for  the 
IBM  PC,  allow  a  number  of  different  options  for  such  an  arc. 
All  Mac  Draw-type  packages  I  know  don't  allow  such  diversity, 
but  then,  of  course,  they  are  easier  to  use.... 

CIRCLE 

TEXT  -  This  is  not  normal  Amiga  font  type  text.  You  dont 
have  any  choice  of  type  style.  The  text  in  Aegis  Draw  is 
vector-drawn,  which  is  another  way  of  saying  that  it  is  stored 
mathematically  by  the  program.  This  translates  into  the  user 
being  able  to  size  and  rotate  the  letters  to  his  hearts'  content 
without  bss  of  resolution. 

DIMENSION  -  The  dimension  tool  causes  Aegis  Draw  to 
automatically  calculate  and  display  the  distance  between  two 
points.  This  is  selected  as  if  you  were  drawing  a  line.  The 
distance  in  units  is  actually  entered  into  the  diagram  in 
between  two  arrows  that  follow  the  line  between  the 
beginning  and  end  points  chosen. 

PART  -  Atremendously  powerful  feature  of  Aegis  Drawls  its 

ability  to  maintain  a  database  of  regularly  used  parts.  An 
example  of  such  an  object  might  be  a  piece  of 
furniture  for  an  architectural  diagram  or  an  electronic 
component  for  a  schematic. 

The  Part  command  lets  you  insert  a  part  you  defined  and 
named  using  the  Edit  menu  Group  function:  the  power  of  the 
parts  list  is  shown,  you  use  the  same  parts  list  with  several 
drawings. 

Other  packages  have  similar  features.  ln*A*Vision  on  the  IBM 
has"templates"  -  essentially  a  second  diagram  window.  Aegis 
also  supports  this,  but  this  parts  concept  is  quite  rare  in 

software  of  its  size. 

Aegis  has  promised  to  extend  this  function  in  the  soon-to-be- 
released  Aegis  Pro  Draw.  The  database  will  include 
attributes,  such  as  part  cost. 

MANIPULATORS 

DRAG  IT  -  This  moves  an  object  from  place  to  place. 

ROTATE  -  The  selected  object  can  be  rotated  around  a  user- 
defined  point.  Control  of  rotation  can  be  very  precise.  In 
comparison,  *A*Vision  only  allows  90  degree  rotations. 

CLONE 

ERASER 

EXPLODE  -  For  those  not  accustomed  to  object-oriented 
graphics  systems,  "Explode"  may  sound  a  little  strange. 
Normally,  an  object  is  any  one  thing  drawn  with  a  toot. 
However,  a  new  object  can  be  formed  from  a  bunch  of 
objects.  The     explode     manipulator     reverses     this, 

discombobulating  a  single  object  made  of  a  number  of  sub- 
objects. 
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SIZER 


BACK  -  Because  Aegis  Draw  considers  objects  as  individual 
constructs,  it  is  possible  for  one  item  to  get  "in  front  of" 
another.  The  back  manipulator  moves  a  selected  object 
behind  another,  thus  giving  a  choice  of  the  drawing  order. 

COLOR  -  This  does  more  tinan  just  allow  the  change  of  an 
objects  color.  Aegis  Draw  allows  objects  to  be  different 
colors.  It  also  sets  the  line  thickness  and  fill  pattern  of  an 
object. 

STATS  -  If  you  require  that  a  circle  should  be  centered  at 
(220,327),  this  command  will  allow  you  to  enter  those 
numbers  directly.  Exactly  what  you  can  change  depends  on 
the  type  of  object  you  are  manipulating:  text,  for  example, 
allows  you  to  change  location,  height  and  width,  and  the  text 
itself. 

Preferences... 

Besides  the  actual  objects  you  can  create  and  manipulate 
using  the  tools  in  Aegis  Draw,  there  are  also  a  number  of  user- 
delinable  options.  For  example: 

RULERS   -  It  is  possible  to  turn  these  on  or  off,  or  to  select 

the  unit  type.  Metric  or  Imperial. 

GRID  SNAP  -  When  this  option  is  turned  on,  all  drawing 
operations  are  forced  to  start  and  end  at  a  grid  boundary. 

SMOOTHING  -  This  causes  straight  line  objects  to  be 
smoothed.  For  example,  a  sequence  of  saw-tooth  lines 
becomes  a  sine  wave. 

Aegis  Draw  has  a  multiple  layer  capabilKy,  up  to  250  layers  per 
diagram,  that  allows  the  user  to  make  certain  layers  invisible 
and  to  select  a  particular  layer  to  work  on. 

This  is  quite  useful  for  maintaining  a  number  of  revisions  to  an 
item.  You  can  regress  to  a  particular  revision  number  by 
turning  layers  off,  or  to  show  and  allow  editing  to  only  certain 
aspects  of  a  project,  while  protecting  others. 

The  package  also  supports  multiple  diagrams  in  memory  at 
once.  Wish  512k  you  are  limited  to  about  two.  Any  other 
programs  running  in  the  background  would  limit  this  further. 

Finally,  Aegis  Draw  is  capable  of  producing  IFF  standard 
picture  files.  You  can  edit  pictures  created  with  Draw  in 
Deluxe  Painl,  Aegis  Images,  or  any  other  IFF  standard 
program  that  comes  along. 

Of  course,  there  are  a  zillion  other  options  and  features:  this 
package  is  a  tad  too  inclusive  for  anything  much  shorter  than 
a  book  to  fully  describe. 

Aegis'  standard  procedure  of  producing  what  looks  like  a 
third  party  book  for  each  of  their  products  has  worked  again 
(wonderfully  here,  by  the  way).  It  is,  however,  not  perfect... 

Nothing  Is  Perfect 

My  major  complaints  with  Aegis  Draw  1 .0  center  on  its  output 
options. 
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First,  let  me  commend  Aegis  for  developing  an  intelligent 
plotter  driver  system  which  allows  the  user  to  write  their  own 
drivers.  With  this  system  available,  it  seems  almost  criminal  to 
include  only  one  pre-made  driver,  for  the  Roland  DXY-980. 

This  driver  supports  a  graphics  plot  standard  called  HPGL 
(Hewlett  Packard  Graphics  Language,  I  believe),  but  even  so 
it  seems  almost  mean-hearted  not  to  do  a  little  leg  work  for 
the  user  and   include  completed  drivers  for  a  few  more 

plotters. 

Even  worse,  in  my  opinion,  is  that  no  reasonable  option 
exists  for  high-quality  printer  (not  plotter)  output. 

What  printer  output  exists  is  essentially  a  screen  dump, 
showing  things  like  the  menu  bars.  This  results  in  the  typical 
appalling  resolution  one  normally  gets  from  a  bit-mapped 
graphics  package.  The  average  user  may  not  have  access  to 
high-power  equipment.  I  would  love  to  have  printer  output 
quality  comparable  to  that  of  Pro  Design  II. 

As  a  final  complaint,  the  manual  claims  there  is  an  option  to 
adjust  plotting  height  and  width,  but  the  addendum  card  says 
correctly  that  this  option  was  removed. 

On  the  card.  Aegis  claims  the  ability  to  select  the  output  area 
was  considered  redundant  because  the  information  was 
already  stored  in  the  plotter  driver. 

What  this  means  is  that  if  I  want  to  create  an  8.5  x  1 1"  plot  on 
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WE  COULDN'T  HAVE 

SAID  IT  BETTER 

OURSELVES! 

Dynamite  Value  &  Versatility 


ANALYZE! 

The  Most  Powerful  Spreadsheet 

Program-Fast  &  Easy  Financial 

Analysis  &  Planning 

$99.95 


"Best  example  of  Amiga  interface . . .  Uses 
fast  memory."  Eddie  Churchill,  Commodore 
Business  Machines 


SCRIBBLE! 

The  Full  Feature,  Super-Easy  Word  Processor 
$99.95 


"Scribble  Is  what  all  the  other  word  processors 
that  have  passed  before  my  desk  should  have 
been.  Its  strong  features  and  non-threatening 
poise  make  it  a  great  multiple-skill-level  product 
...its  consistency  with  other  Micro- Systems' 
products  is  a  welcome  sight."  Jon  Fuelleman, 
Commodore  Business  Machines,  Los  Gatos 


BBS-PC! 

The  Electronic  Bulletin  Board  System 

That  Becomes  a  Communications  Network 

$99.95 


"..adaptable  and  sophisticated... 
...a  business-oriented  commercial  electronic  bul- 
letin board  system  that  can  Store  vital  statistics 
from  each  regular  user.  Many  Fortune  500 
companies  have  taken  advantage  of  BBS-PC's 
ability  to  be  configured  to  suit  specific  needs. 
BBS- PC  is  fast:  it  supports  1,200  or  2,400  bits 
per  second."  Christian  Dyar,  PC  Magazine 


ONLINE! 

The  Ultimate  Telecommunications  Program 
$69.95 


"Online!  is  a  high-powered  communications 
program  for  the  Amiga  that  can  deal  with  almost 
any  telecommunications  situation ...  a  complete 
solution  to  serious  users."  The  Editors  of 
AmigaWorld  Magazine 
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my   11    X    17"  plotter   I   must  re- 
Preposterous! 


write  the  plotter  driver!) 


Finally,  and  this  is  a  minor  complaint,  Aegis  Draw  could  be 
faster.  MacDraft  is  substantially  quicker,  although  I  performed 
no  intensive  benchmarl<s:  there  is  no  real  reason  for  this. 

ItallEndsWhenltsDone... 

All  in  all,  this  is  a  very  good  pacl<age  for  the  serious  graphics 
user  who  owns  a  plotter.  Until  and  11  Aegis  brings  out  real 
printer  drivers  to  produce  the  quality  of  output  that  Aegis 
Draw  obviously  is  capable  of,  it  is  difficult  to  recommend  this 
package  to  anyone  without  a  plotter  of  their  own. 

The  price  is  reasonable,  and  the  manual  mentions  an 
upgrade  path  to  ProDraw,  once  it  is  available,  for  the 
difference  in  price  between  the  two. 

Also,  Draw  is  not  copy  protected.  A  practical,  professional 
quality  application  like  this  must  be  backed  up.  Aegis  Draw 
certainly  deserves  to  do  well  -  especially  if  they  attend  to  my 
complaints! 

Last  Minute  News... 

As  I  was  getting  ready  to  send  this  off  to  Amazing  Computing, 
I  got  a  phone  call  from  Aegis.  They  told  me  of  a  new  version 
of  Aegis  Draw,  which  should  be  available  by  mid-August. 
Keeping  in  mind  that  I  have  not  seen  this  package,  here  is  a 
list  of  what  version  1 .1 0  will  supposedly  include: 

A  "Pick  Plotter"  requester,  that  will  allow  you  to  choose  from  a 
number  of  plotter  drivers  in  a  drawer  on  the  system  disk. 
Aegis  will  also  include  about  five  new  drivers  in  this  drawer. 
This  addresses  my  complaint  about  a  lack  of  plotter  drivers. 

Feet,  inches,  fractions  units  option,  for  dimension  and  ruler 
lines.  This  allows  increments  as  small  as  1/128  of  an  inch. 

Improved  numeric  display,  showing  angles  of  rotation,  height 
and  width  of  rectangles,  length  of  lines,  etc. 

Summary 

All  in  all,  Aegis  seems  to  have  covered  most  of  my 
complaints:  they  also  fixed  a  few  bugs,  including  one  which  I 
never  noticed,  I  am  embarassed  to  say.  Apparently,  the 
"smooth"  preference  formerly  turned  straight  lines  into  wavy 
lines.... 

They  still  have  to  add  high  quality  printer  drivers,  but  the 
person  I  talked  to,  before  I  even  mentioned  that  this  was  one 
of  my  major  complaints,  told  me  that  they  were  developing 
better  "printer  plot"  routines.  Here,  here,  guys! 

Also,  Aegis  has  a  low  or  no  cost  upgrade  policy:  contact  them 
for  details. 

I  was  also  asked  to  mention  that  approximately  ninety  percent 
of  these  upgrades  were  based  on  comments  from  users.  It 
seems  Aegis  really  wants  to  hear  from  their  clients.  Anyway, 
if  version  1.10  is  as  good  as  it  sounds,  then  it  should  be 
pretty  great. 

•AC* 
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An  introduction  to  3D  graphics 

By  Jim  Meadows  =^=^=^=^^^^^^^^^=:^^^ 


CompuServe  [75046,201 2] 


Shortly  afJer  getting  my  Amiga,  I  was  interested  in  testing  the 
speed  of  Amiga  Basic.  I  decided  to  convert  some  three- 
dimensional  routines  from  the  IBM  PC  and  see  how  fast  they 
would  run.  {These  routines  were  on  my  Apple  before  that.) 

I  was  excited  to  find  that  Amiga  Basic  was  fast  enough  to  see 
results  of  moving  and  rotating  simple  3D  images.  To  get  the 
speed  needed  to  do  this,  it  required  assembler  on  the  Apple 
and  compiled  Basic  on  the  IBfvl  PC. 

i  realized  that  the  Amiga  would  be  an  excellent  tool  to 
introduce  others  to  the  world  of  3D  graphics.  So  I  added 
menu  and  mouse  control  and  developed  the  sample 
program  that  appears  with  this  article.  I  also  decided  (o  write 
this  article  so  others  could  learn  the  basics  of  3D  graphics. 

Let  us  begin  by  asking,  'How  can  you  draw  a  3D  image  on  a 
two-dimensional  display  screen?"  The  first  concept  we  must 
master  is  that  of  a  projection  plane. 

Imagine  that  you  are  looking  out  of  a  window  at  a  light  pole 
outside.  If  you  reached  up  and  marked  on  the  window  the  top 
and  bottom  of  the  light  pole  as  you  saw  it,  and  then 
connected  the  two  points  you  marked  on  the  window,  you 
would  then  have  projected  the  light  pole  image  onto  a 
projection  plane -the  window. 

The  size  of  the  light  pole  that  you  drew  on  the  window 
depends  on  3  things:  how  tall  the  light  pole  is,  how  far  away  it 
is,  and  how  far  away  your  eye  is  from  the  window. 

To  represent  a  point  in  3D  space,  you  can  use  X,  Y,  and  Z 
values  where  X  is  horizontal  distance,  Y  is  vertical  distance, 
and  Z  is  depth  (or  how  far  away  it  is).  The  light  pole,  window, 
and  your  eye  are  shown  in  Figure  1  using  these 
designations. 

FIGURE    1 
(projection  plane) 
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<o 
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If  the  telephone  pole  is  Y  units  high,  the  image  you  draw  on 

your  window  will  be  some  amount  we  will  call  YW  units  high. 
We  will  call  the  distance  from  your  eye  to  the  window  DW 
units.     ' 

By  looking  at  Figure  1  you  can  see  two  triangles:  a  big  one 
formed  from  your  eye  to  the  light  pole,  and  a  smaller  one 
formed  from  your  eye  to  the  light  pole  image  you  drew  on  the 
window.  Since  these  two  triangles  are  similar  triangles,  the 
ratioof  their  sides  will  be  the  same.  This  allows  us  to  write: 


YW 


DW 


and  solve  for  YW: 


YW=  — -X  DW 

2 

If  you  looked  at  a  stick  lying  on  the  ground  and  drew  its  image 
on  the  window,  the  same  thing  applies  in  the  horizontal 
direction  as  shown  in  Figure  2. 

FIGURE  2 
(projection  plane) 


(eye)     DW 
<0 
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If  the  stick  is  X  units  long  and  the  image  you  draw  on  the 
window  is  XW  units  long,  we  again  see  two  triangles  and  can 
write: 


10  -  •- 


DH 


*    (light 
!      pole) 

!    Y 

t 

1 

XW       X 

=  —   and  solve  for  XW 

DW       Z 

X 
XW= X  DW 

z 

If  you  were  looking  at  a  box  outside  on  the  ground  and  you 
marked  the  corners  on  your  window  and  connected  the 
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points  with  lines,  you  would  then  have  a  3D  image  projected 
onto  your  window,  just  as  you  did  with  the  light  pole  and 
stick. 

Now  think  ol  the  window  as  your  display  screen.  By  defining 
an  image  as  a  series  of  points  in  3D  space  connected  by 
lines,  you  can  use  the  XW  and  YW  equations  to  compute  the 
X  &  Y  values  on  your  display  screen  that  correspond  to  each 
of  the  points  of  the  image.  If  you  connect  the  points 
computed  on  your  display  screen,  you  will  have  a  3D  image 
on  your  display. 

Before  we  can  consider  how  to  rotate  a  3D  image  so  that  we 
can  'view'  it  from  different  angles,  we  need  to  adjust  the  XW 
and  YW  equations  a  little  bit  more. 

h  is  desirable  for  an  object  to  appear  to  'spin'  about  a  point  at 
the  center  of  the  object  when  it  is  rotated.  It  is  easier  to 
develop  the  rotation  equations  if  the  center  of  the  object  is  at 
the  point  (0,0,0). 

In  the  diagrams  used  so  far,  we  assumed  our  eye  was  at 
(0,0,0)  and  the  object  was  defined  at  some  distance  Z  from 
our  eye.  if  we  define  an  image  centered  around  the  point 
(0,0,0)  and  our  eye  is  also  at  (0,0,0),  then  it  would  appear  as 
if  we  were  inside  the  object! 

To  remedy  this  situation,  we  need  to  move  the  point  (0,0,0) 
from  where  our  eye  is  to  the  location  that  we  want  the  image 
to  appear  to  rotate  around.  If  we  choose  a  variable  Dl  to  be 
the  Distance  to  the  Image  rotation  point,  then  we  represent 
the  larger  triangle  as  shown  in  Figure  3. 


FIGUKE    4 
(projection  plana) 
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We  need  just  two  more  adjustments  to  these  equatfons  for 
use  on  the  Amiga.  Due  to  the  difference  in  horizontal  and 
vertical  screen  resolution,  a  scaling  factor  should  be  included 
in  order  to  make  a  square  actually  lool<  'square*. 

To  accomplish  this,  the  computed  values  of  X  should  be 
multiplied  by  a  screen  scaling  factor  SF.  Because  Y 
increases  as  you  move  down  on  the  Amiga  screen,  we 
should  reverse  the  sign  of  the  computed  Y  value.  Finally,  so 
that  we  can  move  the  image  around  on  the  screen,  we  add 
PX  and  PY  values  to  the  computed  X  and  Y  values,  So  we 
then  have: 


XW=PX+( -xDW)xSF 

Z+DI 


FIGURE    3 


(eye)    <0 


! 
I  T 

I 

(0,0,0)  ! 

0 


< DI >    < z > 
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Thus  what  was  simply  the  value  Z,  now  becomes  DI+2  so  our 
equations  now  become: 


XW  =  — --xDW       and 
Z+DI 


YW  =  PY-( xDW)       • 

Z+Dl  ■  .  .  . 

You  will  find  the  alxfve  equations  used  in  the  accompanying 
program. 

For  the  Amiga  I  have  found  the  scaling  factor  for  the  high 
resolution  display  should  be  SF  =  2.35,  and  a  viewing 
distance  of  Dl  =  900  units  with  the  projection  plane  at  DW  » 
400  units  works  well  for  the  images  defined  in  the  program, 
(If  you  change  to  a  different  screen  resolution,  adjust  SF 
accordingly.) 

As  an  example,  let's  say  you  want  an  image  positioned  at 
PX=200  and  PY=150  on  your  screen.  If  one  of  the  points  of 
the  image  had  values  of  X=80,  Y=90,  and  Z=100,  the  point 
should  appear  on  your  display  screen  at  X=275  and  Y=114  as 
follows: 


YW- xDW 

Z+DI 

Since  Dl  is  the  distance  from  our  eye  to  the  'center*  of  the 
image,  the  above  equations  also  allow  us  to  vary  how  far'  the 
image  appears  to  be  from  us  by  varying  Dl.  By  using  the 
equations  for  YW  and  XW,  any  point  in  3D  space  could  be 
projected  onto  your  two  dimensional  window  as  shown  in 
Figure  4. 


XW=PX  +  ( xDW)xSF 

Z  +  DI 

80 

=  200  +  ( X  400 )  X  2.35  =  275 

100  +  900 

Y 
YW-PY-( xDW) 

2+DI 
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AMIGA  HAS  MULTI-TASKING, 
DISCOVERY  SOFTWARE  USES  IT! 

FROM  NOW  ON  YOU  CAN  PRINT  OR  SAVE 
ANY  SCREEN,  FROM  ANY  PROGRAM,  ANY  TIME! 


GRABBiT  takes  WYSIWYG'  to  the  limit, 
With  GRABBiT  you  capture  exactly  what  you 
see  on  your  screen  in  an  instant,  regardless 
of  what  other  programs  you're  running. 
GRABBiT  works  with  all  AMIGA  video 
modes,  including  "Hold-and-Modify".lt 
even  lets  you  capture  images  from  animated 
programs,  like  the  bouncing  ball  in  Boing! 
What's  more.  GRABBiT  runs  completely  in 
the  background  -  transparent  to  your  other 
software,  GRABBiT  is  always  ready  for  you 
to  use,  even  while  you're  in  the  middle  of 
another  program.  As  if  that's  not  enough, 
GRABBiT  requires  only  about  10 K  of  your 
precious  RAIV!  to  operate,  and  it  supports 
dozens  of  printers.  It's  not  a  game,  it's  not  a 
toy,  GRABBiT  is  truly  a  productivity  power 
tool  for  your  AMIGA! 

We  believe  powerful  software  should  be 
easy  to  use.  GRABBiT  is  one  of  the  EASIEST 
programs  you'll  ever  use!  Every  GRABBiT 
operation  is  triggered  by  one  of  the 
"Hot Keys",  a  set  of  easy-to-remeraber  key 
sequences  that  only  lake  minutes  to  learn. 
Each  HotKey  is  generated  simply  by  holding 
down  the  "Control"  and  "Alt'  keys  and 
pressing  one  of  the  designated  letter  keys. 
What  could  be  easier? 


You  won't  grow, old  waiting  for  GRABBiT 
to  finish  printing,  either.  When  we  say  multi- 
tasking, we  mean  it.  GRABBIT  has  a  unique 
TPM  (Task  Priority  Monitor)  module 
which  makes  sure  your  other  software  can 
still  run  even  while  GRABBiT  is  printing.  The 
TPM  module  constantly  tracks  GRABBiT's 
printing  priority,  making  sure  it  is  neither  too 
high  nor  too  low,  but  always  just  right! 
GRABBIT  adds  a  new  dimension  to  the 
AMIGAS  multi-tasking  capability. 

GRABBiT  supports  dozens  of  different 
printers  because  it  uses  the  standard  Amiga 
device  drivers.  Any  printer  you  can  choose 
in  'Preferences'  is  automatically  supported 
by  GRABBiT.  You'll  get  the  most  from  color 
printers  too,  because  GRABBiT  supports  fuU- 
cotor  printing.  In  fact,  we  have  seen  amazing 
color  printouts  produced  by  GRABBiT  on  the 
Oki-Mate  20,  a  color  printer  costing  less  than 
S200.00. 

Of  course,  GRABBiT's  abilities  are  not 
limited  merely  lo  printing;  GRABBiT  is 
equally  adept  at  saving  screen  images  to 
disk  -  yes.  even  HAM  screens!  All  GRABBiT 


disk  files  are  saved  in  the  popular  IFF 
format,  the  emerging  graphics  standard  for 
AMIGA.  You  can  capture  any  screen  to  disk 
for  slide-show  presentations  or  later 
enhancement  with  any  popular  AMIGA 
graphics  editor  like  AEGIS  Images  or  Deluxe 
Paint.  We  even  include  a  specially  modified 
PD  utility  called  "SEE",  which  allows  you  to 
view  IFF  image  files  quickly  and  easily. 
GRABBiT's  disk  operations  are  lightnjng  fast 
because  GRABBiT  is  written  in  a  hybrid  of 
highly  optimized  C  and  68000  Assembler. 

Once  you  start  using  GRABBiT  you'll 
want  it  on  every  disk.  You  can  easily  install 
GRABBiT  in  your  system  startup-sequence,  so 
it  will  always  be  there  when  you  need  it. 
With  all  its  features  this  would  be  a  great 
package  at  any  price.  But  we  think  you'll 
agree  with  us  that  GRABBiT's  most 
outstanding  feature  is  VALUE!  You  get  all 
the  power  of  this  sizzling  new  software  for 
an  unbelievably  low 
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90 

=  150-(~~ x400)       =114 

100  +  900 

Now  lei's  consider  how  to  rotate  an  image  for  viewing  from 
different  angles.  (If  you  want  to  skip  the  math  and  go  to  the 
results,  skip  down  to  the  paragraph  that  begins  The 
resulting  equations  then  become...'). 

Imagine  a  line  going  straight  up  and  down  from  the  center  of 
your  image  and  call  it  the  Y  axis.  A  line  going  from  the  center 
of  the  image  out  to  the  right  and  left  will  be  the  X  axis. 

The  Z  axis  would  be  a  line  from  your  eye  through  the  center 
of  the  image.  Picture  a  point  to  the  right  on  the  X  axis  and 
then  rotate  that  point  30  degrees  around  the  place  where  the 
X  and  Y  axis  intersect.  Where  will  the  new  location  of  that 
point  be? 

Figure   5  If  axis 

1  (XR,YR) 

1  ...* 

1         

1, . .     30  .        {X,0) 

1 * X  axis 

1< ^x > 

1 

As  shown  in  Figure  5,  the  new  location  of  the  point  has  a 
smaller  X  value,  XR.  Also,  the  point  is  no  longer  on  the  X  axis, 
so  Y  is  no  longer  0,  but  has  a  positive  value,  YR. 

Since  the  distance  from  the  new  location  to  the  origin  (where 
the  X  and  Y  axis  cross)  remains  the  same  during  a  rotation, 
the  line  from  the  origin  to  the  new  (XR,YR)  location  is  the 
same  length  as  the  original  X  value. 

The  line  from  the  origin  to  the  new  location  (XR.YR)  is  the 

hypotenuse  of  a  right  triangle,  while  the  line  from  the  origin 
to  the  point  XR  on  the  X  axis  is  the  adjacent  side  (the  bottom) 
of  the  triangle.  The  COSINE  of  an  angle  is  defined  as  the 
side  adjacent  to  the  angle,  divided  by  the  hypotenuse,  so: 

COS{30)-XR/X    or      XR  =  X*COS(30) 

Since  the  SINE  of  an  angle  is  defined  as  the  side  opposite  to 
the  angle  divided  by  the  hypotenuse,  then: 

SIN(30)=YR/X    or     YR-X*SIN(30) 

What  if  the  point  was  originally  on  the  Y  axis  instead  of  the  X 
axis?  Looking  at  Figure  6,  we  see  this  time  the  distance  from 
the  new  (XR.YR)  location  to  the  origin  is  the  same  length  as 
the  original  Y  value. 


(XR,YR) 


Figuro   €        Y  axis 
1 

*    (0,Y) 

-   1 

1 

.301 

.    1 

1 

-1. 


X  axis 


The  new  X  value  (XR)  in  this  case  is  negative  and  could  be 
found  by: 

SIN(30)  =  -XRA'    or     XR  =-Y' SIN(30) 

The  new  Y  value  (YR)  could  be  found  by:  "^ 

COS(30)  =  YRA'    or     YR  =  Y-COS(30) 

By  combining  the  point-on-the-X-axis  and  the  point-on-the-Y- 
axis  cases  we  get: 

XR  =  X*COS(30)-Y*S1N(30) 

YR  =  X*SIN(30)  +  Y*COS(30) 

2R  =  2 

The  above  equations  can  be  applied  to  any  point  in  order  to 
rotate  it  30  degrees  around  the  Z  axis.  The  ZR  equation  was 
included  to  show  that  since  the  point  rotates  about  the  Z 
axis,  the  Z  value  of  the  point  would  not  change. 

If  we  use  a  variable  SZ  =  SIN(Z-Angle)  and  CZ  =  COS{Z- 
Angle)  where  'Z-Angle'  is  how  much  we  want  the  image 
rotated  around  the  Z  axis,  then  the  equations  become: 

XR-X'CZ-Y-SZ 

(A)  YR  =  X*SZ  +  Y*CZ 

2R  =  Z 

What  if  we  want  to  rotate  a  point  around  the  Y  axis  instead? 
Then  we  use  SY  =  SIN{Y-Angle)  and  CY  =  COS(Y-Angle) 
where  'Y-Angle'  is  how  much  we  want  the  image  rotated 
around  the  Y  axis,  and  by  similar  development  the  equations 
would  be: 

XR  =  X-CY-Z-SY 

(B)  ZR  =  X*SY  +  Z'CY 

YR  =  Y 

What  if  it  is  rotated  around  the  X  axis?  Again  by  using  SX  = 
S1N(X-Ang!e)  and  CX  =  COS(X-Angle)  where  'X-Angle'  is  how 
much  we  want  the  image  rotated  around  the  X  axis,  the 
equations  would  then  be: 

YR  =  Y-CX  -Z*SX 

(C)  ZR  =  Y'SX  +  Z*CX 

XR  =  X 

Now  it  is  substitution  time.    If  you  take  the  XR,  YR,  and  ZR 

values  from  the  (A)  equations  and  substitute  them  for  the  X, 
Y,  and  Z  values  in  the  (B)  equations,  and  then  take  the 
resulting  XR,  YR,  and  ZR  values  from  the  (B)  equations  and 
substitute  them  for  the  X,  Y,  and  Z  values  in  the     (C) 
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■ave  to  give  Marauder  a  hearty  thumbs  up  and  would  recommend  this  product  to  friend 

AMAZING  COMPUTING 

K"an  indespensible  tool  for  anyone  with  an  Amiga" 
_  INFO  Magazine 


Second  Generation  Excellence! 


The  Best  Gets  Even  Better. 

MARAUDER  II  Is  the  most  powerful  copier  for  Amiga,  no  other 

copier  even  comes  close.  Copies  most  advanced  copy-protection 

schemes  ON  ANY  DRIVE  v\/ith  NO  ADJUSTMENT  REQUIRED,  even 

SkyFox,  Arcticfox,  and  the  new  Deluxe  Series  from  Electronic  Arts. 

Automatic  copying  is  now  fully  supported,  but  Parameter-Entry  override 

is  still  provided.  MARAUDER  II  even  includes  new  disk  analysis  utilities 

that  will  allow  you  to  explore  disks  like  never  before. 

MARAUDER  11  can  also  make  completely  unprotected  copies  of 

many  of  your  favorite  programs.  No  key  disk  is  required  after  these  programs 

are  unprotected  by  MARAUDER  II.  If  you  plan  to  get  a  hard  disk  for  your  Amiga, 

then  you'll  really  appreciate  this  feature! 

Don't  wait  any  longer.  Join  the  thousands  of  Amiga  owners  who  already  rely  on 
MARAUDER  and  get  MARAUDER  II  today.  Still  not  copy-protected,  still  only 
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equations,  you  will  get  a  general  set  o{  equations  for 
simultaneous  rotations  around  any  of  the  Axes. 

(Instead  of  substituting,  you  could  convert  the  (A),  (B),  and 
(C)  equations  Into  matrix  form  and  multiply  them  together  to 
get  the  same  results). 

The  resulting  equations  then  become: 

XR  =  X  *  (CY'CZ) 
+  Y-(-CY'SZ) 
+  Z*(-SY) 

YR  =  X  *  (CX*SZ-SX*SY'C2) 
+  Y*(CX*CZ+SX*SY*SZ) 
+  Z*(-SX*CY) 

ZR=  X*(SX-SZ+CX*SY*CZ) 
+  Y*(SX-CZ-CX-SY'SZ) 
+  Z*(CX-CY) 

These  are  the  equations  used  in  the  accompanying  3D 
program  to  rotate  all  the  points  of  an  image  before  projecting 
them  onto  the  projection  plane. 

You  will  notice  that  the  values  in  parentheses  in  the  above 
equations  can  be  evaluated  once,  and  then  applied  to  all  the 
points  in  the  image  table,  array  IT%,  in  order  to  effectively 
rotate  the  image  in  space. 

The  computed  XR,  YR,  and  ZR  values  are  stored  in  a  rotated 
image  table,  called  RIM%.  Finally,  the  projection  equations 
developed  earlier  are  used  to  'see'  the  rotated  3D  image  on 
the  projection  plane  (your  display  screen). 

Due  to  the  sequence  in  which  we  evaluated  the  rotation 
equations,  an  image  may  appear  to  spin  about  an  axis  or 
'wobble'  about  an  axis  when  rotated  depending  on  the 
angles  of  rotation. 

One  final  comment  about  the  rotation  calculations  is  needed. 
We  normally  think  of  angles  in  degrees  (e.g.,  90  degrees  is  a 
right  angle).  However,  the  SINE  and  COSINE  functions  in 
Basic  expect  the  angles  to  be  in  radians. 

Since  2  pi  radians  =  360  degrees,  to  convert  degrees  to 
radians  you  must  divide  by  57.2958.  This  is  done  in  the 
program  as  it  computes  the  trig  functions. 

The  accompanying  program  uses  the  projection  equations 
and  the  rotation  equations  we  have  developed.  When  you 
run  the  program,  it  first  greets  you  with  a  3D  image  that 
rotates  at  different  X,  Y,  and  Z  angles  and  varies  the  distance 
the  image  is  from  you  fordifferent  effects. 

Then  another  image  is  displayed  and  rotated,  using  a 
draw/undraw  technique  where  the  image  is  redrawn  using 
the  background  color  in  orderto  erase  it. 

Next  the  image  is  flown'  through  space  by  a  short  routine  that 
moves  the  image  about,  rotating  it,  and  moving  it  'closer'  to 
your  eye  by  varying  Dl. 


Another  image  is  then  llown'  through  the  same  flight  pattern. 
When  the  flight'  is  over,  the  program  switches  to  a  manual 
display  mode  with  menus  that  allow  you  to  rotate  the  last 
image  for  viewing  at  any  angle  and  to  move  it  about.  Holding 
the  left  mouse  button  down  repeats  the  last  menu  item 
selected  forcontinuous  movement. 

The  images  displayed  are  sometimes  called  "wire  frame' 
images,  since  all  edges  are  visible.  You  appear  to  see 
through  the  object,  as  if  you  have  X-ray  vision.  By  adding 
hidden  line  removal  routines,  only  the  surfaces  you  normally 
would  see  would  be  drawn.  However,  this  type  of  routine  can 
become  quite  complex,  and  is  beyond  the  scope  of  this 
introduclionto  3D  graphics. 

The  variable  EF  in  this  program  is  used  as  an  "Erase  Flag*.  If 
EF=0.  the  image  is  drawn  using  the  colors  found  in  the 
image  table.  If  EF=1,  the  image  is  drawn  using  the 
background  color,  effectively  erasing  the  image  from  the 
screen.  If  EF=-1 ,  the  screen  will  be  cleared  after  the  rotated 
image  is  computed  and  before  the  image  is  drawn  on  the 
screen. 

One  possible  use  of  these  routines  would  be  to  combine 
them  with  a  drawing  program.  An  image  could  be  defined, 
displayed  from  various  angles,  and  saved  on  disk  to  later  be 
filled  in  with  details  using  a  drawing  program.  Or  for  those  so 
inclined,  the  image  table  cxiuld  be  expanded  and  equations 
used  to  generate  entries  in  the  table  for  the  points  of  a  3D 
surface.  Then  the  surfaces  could  be  rotated  and  viewed 
from  various  angles. 

The  images  are  defined  at  the  end  of  the  program.  Try 
substituting  your  own  images  in  place  of  the  program's 
images.  Thefirst  value  of  a  table  entry  is  the  color  to  be  used 
to  connect  the  point  with  the  previous  point.  If  0  is  used  for 
the  color,  a  line  is  not  drawn. 

The  remaining  three  values  are  the  X,  Y,  and  Z  values  of  the 
point.  To  mark  the  end  of  your  image  use  -1  for  the  color  of 
the  last  entry.  When  you  define  the  image  points,  remember 
that  the  object  will  appear  to  rotate  around  the  point  (0,0.0). 

Have  fun  in  the  'real'  world  of  3D  graphics. 


TrySd  —  An  Exait^le  of  3D  Frogramnlng 
Initial  Amiga  Impletoentatlon 
by  Jim  Meadows  6/1/36  Compuserva  [75046,2012] 


'  3D  Greeting 

CLS: PRINT 

COLOR  3: PRINT  " 

COLOR  IrPRIKT  " 

COLOR  1: PRINT  " 

GOSUB  InitVals 

GOSUB  SetTmaga 

'    GOSUB  Setlinage 

'    GOTO  Manual 

ef=-l 

ax=l 0 : ay=5 : px=l 8  0 ; py=7  0 

GOSt;B   Drawlmaga 

LOCATE    ie,20:COLOR   3:PR1NT 

GOSUB  Pause 

ax-lO  :*y— 30 


Try3D"; 

An  Example  of  3D  Prograiomlng" 
by  Jim  Meadows" 


" Hallo  r- 
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THE  cxPVT<yK 

fov   tfva 

Take  advantage  of  your  AMIGA'S  speaking  powers  with  THE  ORATOR.  THE 
ORATOR  allows  you  to  compose  text  in  eittier  regular  English,  or  using  the  Pho- 
neme method  (or  a  combination  of  both).  A  complete  text  editor  permits  you  to 
change  the  spelling  of  words  in  order  to  get  just  the  fight  sound.  You  have  com- 
plete control  over  the  Rate,  Pitch,  Tuning,  Voice,  and  Udode  of  each  individual 
phrase  by  simple,  mouse  controlled  sliding  bars  and  boxes.  A  phrase  can  be  any 
length  up  to  140  characters,  and  at  least  200  phrases  can  string  together  in  a 
single  continuous  file.  Your  story,  poem,  jokes,  or  whatever,  along  with  theirvoice 
settings,  can  be  saved  in  a  compact  sequential  file  that  you  can  use  in  your  own 
BASIC  programs.  THE  ORATOR  also  comes  with  THE  PHONEME  TUTOR,  a  pro- 
gram that  makes  it  easy  to  learn  the  Phoneme  method  of  text  input.  Includes 
complete  documentation  and  a  utility  program  for  use  in  your  own  programs. 
Requires  the  AMIGA  with  512K  memory,  one  disk  drive,  and  ABasiC  or  Amiga 
BASIC.  Both  versions  are  included  on  the  disk. 

Price:  $39.95  postpaid    C.O.D.  add  S4 

(Indiana  residents  add  5%  sales  tax) 

Mail  check  or  money  order  to: 

I'HE  QUALirV  CXriTACIK 

^  6301  F  Uni\'ersitv  Clomnions 

Suite  3()8 

South  Bend,  In  46635 

(2191  2;i4-440l 

AMIGA  is  a  Irademark  of  CommoSore'Amiga.  Inc 


GOSUB  Drawlmaga 

LOCATE  18,3:COLOR  3 :ER1NT  "Welcome  to  the  World  of 

3D  Graphics!" 

GOSUB  Pause 

ax=30 :ay=20 

GOSUB  Drawlmage 

LOCATE    18,  15  : COLOR   3  : PRINT    "Hiiiiniraiiiran " 

GOSUB  Pause 

ax=-30 :ay=-15 :az=20 :di=S0O 

GOSUB  Drawlmage 

LOCATE  18,8:COL0R  3:PRINT  "Yep,  just  as  I  figured 

GOSUB  Pause 

az=-20 :ay=15 

GOSUB  Drawlmage 

LOCATE  18,4:COLOR  3 :PRINT  "You've  got  what  it  takes 

for  3D!" 

GOSUB  Pause 

ax=10 : ay=-20 : az=0 : di=900 

GOSUB  Drawlinage 

LOCATE  IS, 15; COLOR  3 : PRINT  "You  have  ..." 

GOSUB  Pause 

ax=-5:ay=0:di=700 

GOSUB  Drawlmage 

LOCATE  18, IS: COLOR  3: PRINT  "...  an  AMIGA!!" 

FOR  i  =  1  TO  10000 :NEXT 

ef=0 


Ri: 


'   Rotating  Image 
CLS 

LOCATE  19,13:COLOR  3 : PRINT  "Delta  Wing  Fighter" 
GOSUB  Set  Image 
'  Draw  and  Undraw  rotating  image 


Try  3D 


ax=-90 :ay=270:az=0 :px=160 ;py=100 

FOR  ii  =  1  TO  4 

GOSUB  Drawlmage 

GOSUB  Pause 

ef=l 

GOSUB  Drawlmage 

ef=0 

ax=-20 

ay=ay-60 

IF  i±=l  THEN  ax=0:ay=270:az=0 
NEXT 

Fly: 

'  Animated  flight  path 

FOR  inura  =  1  TO  2 

IF  inum=2  THEN  GOSUB  Setlmage 

di=24Q0 

ax=0 : ay=270 :az=0 

px=30 :py=30 :ef=-l 

GOSUB  Drawlmage 

px=px+40 :ax=ax-5:di=di-100 

GOSUB  Drawlmage 

ax=ax-5 :di=di-100 

FOR  R=l  TO  3 

px=px+40 : ay=ay-20 :di=di-100 

GOSUB  Drawlmage 
NEXT 
FOR  R  =  1  TO  3 

px=px+30 :ay=ay-20 :az=az-20 :di=di-100 

GOSUB  Drawlmage 
NEXT 
FOR  R=l  TO  4 

px=px-2  0:py=py+10 :az=a2+10 :di=di-80 

GOSUB  Drawlmage 
NEXT 
FOR  R=l  TO  8 

px=px-9*R:py=py+10:a2=ai+5 :di=di-60 :ax=ax-5 

GOSUB  Drawlmage 
NEXT 
NEXT 

'  Finally  allow  manual  control 
GOStTB  Setlmage 

Manual : 

MENU  1,0,1,  "Rotate  +" 

MENU  1, 1, 1, "Around  X-axis" 

MENU  1, 2, 1, "Around  Y-axis" 

MENU  1,3,1,  "Around  Z-axis" 

MENU  2,0,1, "Rotate  -" 

MENU  2,1,1, "Around  X-axis" 

MENU  2,2, 1, "Around  Y-axis" 

MENU  2,3,1,  "Around  Z-axi«" 

MENU  3,0,1,  "Move" 
MENU  3,  1,1,  "Cloeor" 
MENU  3,2,1, "Away" 
MENU  3,3,1, "Right" 
MENU  3,4,1,  "Left" 
MENU  3,5,1,  "Up" 
MENU  3,  6,1,  "Down" 

MENU  4,  0, 1,  "Reset" 

MENU  4,1,1,  "Angles" 

MENU  4,2,1,  "Distance" 

MENU  4,3.1, "Position" 

MENU  4,4,1,  "Quit" 
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Try  3D 


ON  MENU  GOSUB  Menus 
ON  MOUSE  GOSUB  Mous 

ml=l:GOSUB  Reeset 
inl=:2:  GOSUB  Reaset 
ml=3: GOSUB  Reeeet 
act=l:ef=-l 

MOUSE  ON 
MENU  ON 

Loop: 

IF  act=0  THEN  inc=l :  GOTO  Loop 

GOSUB  Drawlmage 

GOSUB  ValB 

IF  MOUSE  (0)0-1  THEN  act^O  ELSE  GOSUB  Mous 

GOTO  Loop 


Subroutines 


"px" 
"dl 


"ay" 

"py 


Vals: 

COLOR  1 

LOCATE  1,1:PRINT  "Ax,Ay,Az: 

LOCATE  2,1:PRINT  "Px,Py 

LOCATE  3,1:PRINT  "Dl 

COLOR  3 

LOCATE  4,1:PRINT  "Usa  Menus  to  Change  View" 

COLOR  2 

LOCATE  5,1:PRINT  "(press  left  button  to  repeat)' 
RETURN 

Menus : 

act=l 
lnc=l 

roO=MENU(0) 
na=MENU(l) 

ON  mO  GOSUB  RotataP,HotataM, MoveI,R6«set 
RETURM 

Mous: 

&ct=l 

inc=inc+.5 

ON  mO  GOSUB  Rotate?,  RotateM,  Movel,  Reeset 

RETURN 

RotateP : 

IF  ml=l  THEN  ax=ax+10*lnc 

IF  ml=2  THEN  ay=ay+10*lnc 

IF  ml=3  THEN  az=az+10*inc 
RETURN 

RotateM: 

IF  ml=l  THEN  ax=ax-10*inc 
IF  ml=2  THEN  ay=ay-10*inc 
IF  ml=3  THEN  az=az-10*lnc 
RETURN 


THEN  di=di-50*lnc 
THEN  dl=di+50*lnc 
THEN  px=px+20*inc 
THEN  px=px-20*inc 
THEN  py=py-10*ina 
THEN  py=py+10*lnc 


Move I: 

IF 

ml= 

=1 

IF 

iul= 

=2 

IF 

ml= 

=3 

IF 

ml= 

=4 

IF 

ml= 

=5 

IF 

ml= 

=e 

RETURN 

Reeset : 

IF  inl=l   THEN   ax=-15  :  ay=-25  ;  az=0 
IF  ml>=2   THEN  di=«1200 


GETTING  YOUR 
MONEY'S  WORTH? 


SKE 


A  COMPANY  DEDICATED  TO  PRODUCING 

QUALITY  SOFTWARE  AT 

AFFORDABLE  PRICES,  LIKE: 


SKEterm 

•UP  TO  19200  BAUD 

•TELEPHONE  DIRECTORY 

•USER  DEFAULTS  &  PARAMETERS 

•ASCII,  XMODEM  &  KERMIT  FiLE  XFERS 

•VT100/ADM3A/ANSI/TTY/D20O/OTHERS 

•USER  DEFINED  XGN-XOFF 

•  ON-LINE  HELP 

•HAYES  MODEM  SUPPORT 

•SUPPORTS  BACKGROUND  FILE  XFER 

•MULTITASKING  &  WRITTEN  IN  0 


PRICE  $49.95 

PLUS  S2.50  SHIPPING  (FLA,  RES  ADD  5%)  VlSAfMC/ 
COD/CHK  ACCEPTED  CALL  813.78731 1 1  TO  ORDER 
TODAY  OR  WRITE  TO: 

SKE  Software  Co. 

2780  COTTONWOOD  COURT 

CLEARWATER,  FL  33519 

(813)787-3111 


IF  ml=3  THEN  px=160:py=100 
IF  ml=4  THEN   MENU  OFF: END 
RETURN 


Pause : 

FOR  1 
RETURN 


1  TO  4000:NEXT 


3-D  Routine* 


ax,ay, az  =  rotation  Angle  In  degrees 

dl  =  distance  to  Image 

dw  =  distance  to  window  (projection  plane) 

px,py  =  position  of  Image  on  screen 

ef  =  screen  sealing  factor 

ef  =  erase  flag  (l=erasQ,  0=draw,  -l=els  &  draw) 

Image  data  Is  at  end  of  program 


InitVals: 

'  Define  Arrays 

DIM  lt%(100,3):'  Image  Table 

DIM  rlin%  (100,  3)  :  '  Rotated  Image 

'  Initialize  Values 
x=0 :y=0 :z=0 

dw=400:'  Distance  to  window 
dl=900:'  Distance  to  image 
sf=2.3S;'  Screen  scale  factor 
ax=0 : ay=0 : az=0 : '  Angles  in  Degrees 
px=200 :py=100 ; '  x,y  Image  Location 
ef=0: '  Erase  Flag 

f=57. 29578:'  Degrees  to  Radians  factor 
RETURN 
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WELCOME  TO 
CANADA! 


*Software  Publishers 
'Peripheral  Manufacturers 
'Hardware  Developers 


Be  Represented  by  Canadas  Premier 
Distributor  of  Amiga  support  products 


PHASE  4  DISTRIBUTORS  INC. 

HEAD  OFFICE:  7157  Fisher  Road  South  East 
{403}  252-091 1      Calgary,  Alberta  Canada  T2H  0W5 


CAVALRY-TORONTO-VANCOUVER-STJOHNS 


ATTENTION  :C AN ADI AN  DEALERS 

CALL  TOLL  FREE  1-800-661  -8358 

FOR  THE  LATEST  AMIGA/1 28  UPDATES 

or  (403)-258-0844  for  our  Dealer  BBS 


Drawlmaga : 

'  Draw  the  Image 

GOSUB  Rotate 

GOSUB  Drawit 
RETURN 

Rotate : 

'  First  get  trig  values  from  angles 
fix=SIN(ax/f) :cx=COS(ax/f) 
By=SIN(aY/f) :cy=COS (ay/f ) 
sz=SIN(az/f)  :cz=COS  (az/f ) 

■  Then  comput«  Eotation  values 

xRx=cy*cz 

yRx=-cy*EZ 

xRy=cx*sz-sx*Ey*cz        , 

yRy=cx*c2+sx*fiy*sz 

zRy=-EX*Gy 

xRz=sx*BZ+cx*By*cz 

yRz=Ex*cz-cx*By*6Z 

zRz=cx*cy 

'  Now  Rotate  Image 

np=0 

Rotatel: 
'  Get  next  point 

C=it%(np,0) :IF  c=-l  THEN  RETURN 
x=it%  (np,  1)  :y=it%  {np,  2)  :  z=it%  (op,  3) 
'  Compute  its  new  location 
rim% {np, l)=x*xRx+y*yRx+z*zRx 
rim% (np , 2 ) =x*xRy +y*yRY+z  *zRy 
rim%  (np,  3)  =x*xRz+y*yRz-t-z*zRz 
np=np+l 
GOTO  Rotatel 


Try  3D 


Drawit : 
np=0:IF  ef=-l  THEN  CLS 
Drawltl: 

'  Check  for  end  of  table 

c=it%(np,0) :IF  c=-l  THEN  RETURN 

'  Keep  from  dividing  by  zero 

IF      (rim%(np,  3)+di)     =     0 
rira% (np,  3)=rim% (np, 3) +1 

'  Compute  screen  x  S  y 

xw=px+  (riiii%  (np,  1)  /  (rim%  (np,  3)  +di)  )  *dw*sf 

yw=py-  (rim%  (np,  2)  /  (rim%  (np,  3>  +di)  >  *dw 

'  Draw  next  line  or  move  to  next  point 

IF  C=Q  THEN  GOTO  JustMove 

colr=c:IF  ef=l  THEN  colr=0 

LINE  (Ix,  ly)- (xw,  yw)  ,  coir 

JuEtMove :  lx=xw : ly=yw 

np=np+l 

GOTO  Drawltl 


Set Image: 

'  Routine  to  insert  an  image  into  the  table 
n=0 
itloop: 

REM)  it%(n,0) 

IF  it%(n,0)=-l  THEN  RETURN 
READ  it%  (n,  1)  ,  it%  (n,  2)  ,  it*  (n,  3) 
n!=n+l:GOTO  itloop 


Greeting  Image 

Image  Data  Format :c, x, y, z 

(c=color,  if  =0  then  move  w/o  drawing) 
DATA  0,-50,30,0 


THEN 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


-55,35,10 

-45,0,0 

-20,-60,-30 

20,-60,-30 

20,-60,-30 

45,0,0 

55,35,10 

50,30,0 

30,80,-30 

-30, 80,-30 

-50,30,0 

0,22,-30 

0,-4,-36 

-5,0,-30 

0,-4,-36 

5,0,-30 

-20,30,-25 

-35,25,-17 

-20,20,-25 

-5,25,-21 

-20,30,-25 

-20,20,-25 

20,30,-25 

35, 25, -17 

20,20,-25 

5,25,-21 

20,30,-25 

20,20,-25 

-20,-26,-22 

0,-34,-30 

20,-26,-22 

-10,-30,-26 

10,-30,-26 
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Try  3D 


'  Delta  Hlng  Fighter  Imago 
DATA  0, 0, -20, 100 
DATA  1,0,20,-100 
DATA  0,50, -20,-100 
DATA  1,0,-20,100 
DATA  1,-50,-20,-100 
DATA  2,0,20,-100 
DATA  2,50, -20,-100 
DATA  2,-50,-20,-100 
DATA  0,-75,0,-100 
DATA  3,0,0,0 
DATA  3,75, 0,-100 
DATA  3,-75,0,-100 
DATA  -1: '  End  of  Image 


Chaeer 
DATA  0, 
DATA  1, 


DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Image 

-25,0,-25 

25,0,-25 

25,0,25 

-25,0,25 

-25,0,-25 

-25,25,25 

-25,-25,25 

-25,-25,-25 

-25,25,-25 

-25,25,25 

25,25,25 

25, -25.25 

25, -25,-25 

25,25,-25 

25,25,25 

0,0,-25 

0,0,50 

0,10,25 


DATA 

2,0,0,-25 

DATA 

-1 

XYZ  axia  Image 

DATA 

0,-100,0,0 

DATA 

1,100,0,0 

DATA 

1,80,-20,0 

DATA 

0,100,0,0 

DATA 

1,80,20,0 

DATA 

0,140,14,0 

DATA 

1,170,-16,0 

DATA 

0,140,-16,0 

DATA 

1,170,14,0 

DATA 

0,0,-100,0 

DATA 

2,0,100,0 

DATA 

2,20,80,0 

DATA 

0,0,100,0 

DATA 

2,-20,80,0 

DATA 

0,0,120,0 

DATA 

2,0,134,0 

DATA 

2,14,148,0 

DATA 

0,  0,134,0 

DATA 

2,-14,148,0 

DATA 

0,  0,0,100 

DATA 

3,  0,0,-100 

DATA 

3,  0,-20,-80 

DATA 

0,0,0,-100 

DATA 

3,0,20,-80 

DATA 

0,-14,14,-140 

DATA 

3,16,14,-140 

DATA 

3,-14,-16,-140 

DATA 

3,16,-16,-140 

DATA 

-1 

•AC- 


INFO+ 


The        ^ 
Personal 

Database 
Management 

'111%  EXTRA  _  Easy  to  use.  No  new  language  to  learn.  SV Stem 

•  EXTRA-  On  line  help.  Just  press  for  command  information. 

•  EXTRA  „  Flexibility,  with  pull  down  menus,  automatic  filing  and  field  sizing. 


EXTRA- LOW  price... 

JUST  $49.99  !!! 


VISA 

Order  NOW!  (305)657-4355 

Eastern  Telecom  Inc. 
9514  Brimton  Drive 
Orlando,  FL  32817 

FREE  Shipping  in  Continental  U.S. 
Dealer  Inquiries 


EXTRA 

APPLICATIONS 

Electronic  Files 
Studeni  Grades 
Monthly  Bills 
Invantory 
Birthdays 
Configurations 
Rental  Property 
Shopping  Lists 
Book  Titles 
Phone  Lists 
Video  Tape 


EXTRA 
FEATURES 

Fast  Execution 
Mutti-Tasking 
Dynamic  Positioning 
Sorts  Any  Field 
All  Screen  Colors 
IVIouse-Key  Entry 
Numeric  Pad 
Formatted  Printing 
Variable  Fields 
32765  Records 
Mot  Copy  Protected 


EXTRA 

USEFUL 

INFO+  helps  you  create,  update,  and 
retain  computerized  files  of  all  your 
valuable  infortTiation.  You  can  sort  the 
data  by  date,  size,  name,  cost,  etc. 
INFO+  IS  an  automatic  secretary  and 
file  cabinet  all  in  one. 
Taking  a  vacation  or  buying  a  car? 
Let  INFO-  do  the  analysis  for  you. 
Never  forget  a  recipe  or  birthday 
again,  INFO+  is  the  ideal  reminder 
system,  and  it  has  a  large  memory. 
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Finally! 

ASDG,  Inc.  is  Proud  To  Announce  Availability  of  the  First 
Intelligent  Hardware  Expansion  Path  for  the  Amiga™ 

September  22nd,  ASDG,  Inc.  will  begin  shipping  Ihe  Convertible™  product  line  as  well  as  the  Mini-Rack -B™ 

All  Convertibles  are  100%  ZORRO  compatible.  In  fact,  we've  designed  our  board  level  products  to  work 
perfectly  even  if  placed  in  a  sub-standard  ZORRO  back  plane  {call  our  engineers  for  detailed  information). 

These  features  are  common  to  all  three: 

•  ZERO  Wait  States  -  your  FAST  RAM  will  really  be  FAST 

•  Fully  ZORRO  (100  pin  bus)  compatible 

•  Fully  Auto-Configuring 

•  Four  Layer  Printed  Circuit  Board  -  for  quality  and  reliability 

•  Custom  Hi-Speed  DRAM  Controller 

•  ONE  YEAR  Parts  and  Labor  Free  -  in  the  unlikely  event  of  board  failure. 

The  Mini-Rack-B  (for  Budget)  converts  most  ZORRO  compatible  card  cage  cards  including  the  Convertibles 
INTO  SIDE  MOUNTED  cards.  The  Mini-Rack-B  is  a  two  slot  card  cage  with  a  self  contained  6  amp  power 
supply.  The  packaging  is  an  attractive  metal  card  cage  which  does  not  block  either  mouse  port. 

If  purchased  along  with  a  Convertible  board  product,  the  Mini-Rack-B  will  be  available  (September  22nd)  for 
$150.00.  If  purchased  alone  the  Mini-Rack-B  is  $300.00.  The  entire  unit  is  10  inches  deep  by  ten  inches 
high  and  only  6  inches  wide. 

The  Mini-Rack-B  coupled  with  our  Convertible  product  line  allows  new  Amiga  owners  the  ability  to  start  out 
with  an  inexpensive  card  cage  and  with  expansion  boards  which  will  be  compatible  with  any  future  upward 
expansion.  If  you  had  purchased  ordinary  side  mounted  products  and  later  decided  to  expand  to  a  large 
card  cage,  your  side  mounted  products  would  become  unusable.  With  the  Convertibles,  simply  slide  them 
out  of  the  Mini-Rack-B  and  into  the  ZORRO  back  plane  o(  YOUR  choice. 

The  three  memory  boards  are  being  introduced  at  more  than  a  TEN  PERCENT  DISCOUNT  from  their  list 
prices.  Send  us  proof  that  you  are  a  member  of  any  Amiga  User  Group,  and  well  take  an  ADDITIONAL  FIVE 
PERCENT  off  the  list. 

The  Convertible  Memory  Board  can  be  ordered  NOW:  *  ? 

LIST  I  INTRODUCTORY         USER  GROUP 

^      .  PRICE  PRICE  PRICE  t^^     ' 


.5  Mbyte  of  FAST  RAM: 

$450.00 

$395.00 

$370.00 

IMbyte  of  FAST  RAM: 

$650.00 

$575.00 

$550.00 

2  Mbyte  of  FAST  RAM 

$900.00 

$795.00 

$750.00 

Ordering  Information 

New  Jersey  Residents  Please  Add  6%  Sales  Tax 

ASDG  Will  Pay  UPS  Standard  Delivery  In  the  Continental  U.S. 

Other  means  of  shipment  are  at  customer's  expense. 

All  funds  In  U.S.  Currency  and  draw  upon  U.S.  Banks 

Remember,  Deliveries  Begin  September  22nd. 

Dealer  and  VMR  Pricing  Aviailable 

Demonstrations  to  Large  UserGroups  Can  Be  Made         * 

Send  Checks  or  Money  Orders  To: 

ADSG  ,  Inc. 
280  River  Road,  Suite  #54A 
Piscataway,  N.J.  08854 

24  ¥©0.  1.  S 


AEGIS  IMAGES/ANIMATOR 


A  Review 

byErv  Bobo 


By  now,  graphics  design  programs  are  a  staple  of  the  Amiga, 
but  IMAGES,  from  Aegis  Development,  has  a  few  differences 
worth  considering  -  some  apparent  as  soon  as  the  program  is 
booted. 

On  the  black  screen  before  you,  a  window  shows  a  Fast 
Menu;  this  allows  rapid  point-and-click  selection  of  every  tool 
in  the  package,  but  is  probably  better  used  once  you've 
become  familiar  with  the  program.  For  right  now,  drag  your 
cursor  to  the  command  bar  and  click  the  right  mouse  button 
to  see  the  pulldown  menus.  These  are  the  same  commands 
you  saw  in  the  Fast  Menu,  but  here  they  are  much  more 
detailed,  words  taking  the  place  of  icons. 

The  Project  menu  allows  you  to  save,  load  or  print  a  picture  as 
well  as  adjusting  the  color  palette.  Next  to  it,  the  Edit  menu 
allows  you  to  Undo  your  last  brush  stroke,  clear  the  screen, 
create  a  frame  or  magnify  a  portion  of  the  work  screen. 
Magnify  allows  you  to  work  on  a  small  section  of  your  picture 
one  pixel  at  a  time,  while  Frame  allows  you  to  delineate  any 
portion  of  a  painting  and  save  it  for  later  use  as  a  brush  or 
move  it  to  another  part  of  the  current  picture.  As  a  Frame,  it 
can  also  be  moved  to  ANIMATOR  and  be  used  as  a 
background  or  foreground  object.  As  if  this  weren't  enough, 
the  area  bounded  by  the  Frame  may  be  rotated  through  360 
degrees. 

Next  in  the  line  of  menus  is  Special  Effects.  Here  you  can 
turn  on  Mirrors,  for  symmetrical  drawing  along  the  vertical, 
horizontal  or  diagonal  -  or  all  three  at  once.  Within  this  same 
menu,  you  can  choose  Wash,  a  technique  that  causes 
adjacent  colors  to  bleed  together;  or  Smear  which  does  just 
what  H's  name  implies. 

Here,  too,  you  can  cause  a  range  of  colors  (selected  from  the 
palette)  to  Cycle  within  your  painting  and  this  can  be  used  as 
an  elementary  type  of  animation. 

A  sub-menu  to  Special  Effects  shows  Pantograph,  which 
copies  an  area  of  (he  painting  to  another  area;  Under,  which 
allows  you  to  paint  under  existing  lines  or  forms;  a  Grid 
superimposed  on  your  painting  for  greater  precision;  and 
Spread,  which  causes  the  Fill  command  to  use  a  range  of 
colors  ratherthan  the  usual  single  color. 

Add  to  these  the  color  palette,  where  each  color  can  be 
adjusted  for  hue  and  intensity  by  slider  bars  and  which 
contains  a  variety  of  pre-made  patterns  which  can  be  edited 
to  taste;  a  menu  of  shapes  allowing  you  to  draw  freehand  or 
to  create  a  variety  of  geometric  shapes;  and  a  brush  menu 
which  shows  a  wide  variety  of  brush  styles  and  you  have  a 
drawing  and  painting  program  as  complete  and  as  easy  to  use 
as  any  on  the  market.  You  will,  however,  have  to  bring  your 
own  talent  to  the  program. 

Now,  suppose  you  do  use  IMAGES  and  create  a  great 
painting  of,  say,  a  landscape  ?  Beyond  printing  it,  what  can 


you  do  with  it  ?  Why,  simply  load  it  into  AEGIS  ANIMATOR, 
use  if  as  a  background  and  create  some  animation  for  it. 

ANIMATOR  is  one  of  the  most  original  programs  yet  created 
for  the  Amiga  and  one  of  the  most  surprising.  When  you  first 
see  how  you  can  draw  a  simple  shape  and  move  it  about  the 
screen,  then  think  about  how  much  code  would  be  needed 
to  duplicate  that  routine  on  a  real  computer,  you'll  be  amazed. 

Like  IMAGES,  ANIMATOR  requires  an  Amiga  with  512k  of 
RAM.  It  also  resides  on  a  Workbench  disk  and  so  can  be 
copied  -  in  fact,  the  memory  requirements  engender  some 
special  copying  instructions.  Following  them  results  in  a 
working  copy  that  will  always  boot  to  CLI  rather  than 
Workbench,  thus  saving  some  valuable  workspace  in  RAM. 

It  is  easy  to  overdo  things  and  run  out  of  memory.  Before  this 
happens,  ANIMATOR  will  display  a  message  saying  "Memory 
Panic  -  System  going  downl"  Before  the  system  does  go 
down,  you'll  have  achance  to  save  your  work. 

Because  it  works  from  a  battery  of  pull-down  menus,  with  all 
routines  built  in,  you  can  get  up-and-running  on  ANIMATOR 
with  only  a  minimum  of  instructions.  Beginning  with  the 
Project  menu,  you  can  select  a  new  routine  or  elect  to  work 
with  an  old  one.  Then  go  to  the  Create  menu,  which  allows 
you  to  select  from  a  variety  of  predefined  shapes  or  to 
choose  a  tool  for  free-hand  drawing.  The  menu  of  shapes 
and  tools  is  not  as  extensive  as  that  in  IMAGES,  so  a  bit  more 
work  will  be  required  if  you  are  working  with  complex  shapes. 
An  alternative  is  to  create  your  complex  shape  in  IMAGES, 
save  it  as  a  Window  (remember  the  Frame)  and  move  it  to 
ANIMATOR.  As  a  Window,  it  can  be  moved  about  the  screen 
and  it  can  be  embellished  with  routines  created  in 
ANIMATOR. 

To  begin  moving  an  image,  go  to  the  Time  menu  and  select 
"tweener".  A  "tween"  is  a  segment  of  animation  and  you  click 
on  it  between  segments  as  a  means  of  keeping  everything 
from  happening  at  once,  i 

Let's  say  that  you've  drawn  a  star  and  the  next  step  is  to  move 

it  sideways  to  the  right.  Without  using  tween,  the  star  would 
simply  form  itself  to  the  right  and  there  would  be  no 
animation.  Although  at  times  there  may  be  reasons  for 
simultaneous  action,  such  as  having  the  star  appear  while 
rotating  on  its  x  axis,  a  little  forethought  is  necessary  in  order 
to  make  your  film  turn  out  the  way  you  hoped  it  would. 

Three-dimensional  rotation,  of  course,  is  the  highest 
standard  of  computer  animation.  Not  only  is  it  possible  with 
ANIMATOR,  it  is  also  easy.  From  the  Move  menu,  you  may 
select  to  Rotate  In-plane,  around  x-axis  or  around  y-axis  or,  if 
you  don't  use  tween,  around  all  three  simultaneously. 

Exploring  other  options  on  the  menus,  we  find  we  can  clone 
a  shape,  change  colors,  re-size  objects,  create  a  path  for  a 
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COLONY  SOFTWARE 

931  W  21  ST 
NORFOLK    VA 
23517 

(804)625-2089 

BBS 
(804)625-1945 

FileCraft! 
Data  Base  Manager  -  $79.95 
Easy-To-Use,  w/4  Ready-To-Use 
Data  Bases.  Pop-In  the  disk  - 
and  START  USING  THE  PROGRAM  - 
IMMEDIATELY! 

Powerful,  Fast,   and  Tested.. 

Programmable-  Data         Flies 
addressed,  outside  DBM. 

Great  Documentation  -  BUT 
YOU  WON'T  NEED  IT. 

Includes  LABEL-MAKER! 

MailCraft! 
Mail  Merge  -  $25  - 

Use  w/FileCraft!  (above)  to 
merge  letters  created  with  TEXT- 
CRAFT  and  data  base  names/ 
addresses. 

Makes  personalized  form 
letters  -  EASILY. 

CashCraft! 
Point-of-Sale  -  $99.95  - 

Cash  register/Inventory  Sys. 

ALL  OTHER  COMMERCIAL  AMIGA 
SOFTWARE.  Approximately  20%  OFF! 

Lowest  Prices  -  Write/Call 
for  Catalog/Hints  -  $5  -. 

To  Be  Released  (Real  Soon  Now): 
SLIDE  SHOW  CONSTRUCTION  SET  -$25 
MARION-THE-LIBRARIAN  -  $40  -. 

RENTAL  SOFTWARE 
Access  our  DISK  LIBRARIES  for 
AS  LITTLE  AS  $2/DISK  -  RENTAL: 

1000+  Disks  of  IBM-PC  software 
converted  to  3-1/2"  disks.  (Use 
w/Transformer  software,  w/o  5"drlve. 

100+  disks  of  AMIGA  software. 


Images/Animator  Review 


moving  object  1o  follow,  outline  or  fill  a  shape,  change  a 
shape,  destroy  an  object  and  more.  And  because  we  are 
working  with  animated  rather  than  static  objects,  these  are  all 

continuous  actions. 

As  you  select  each  option  from  the  menu,  a  one-line 
message  bar  will  change  to  show  what  that  option  will  do  for 
you.  In  addition,  as  you  become  more  adept  and  more 
accustomed  to  the  routines  indicated  by  different  cursor 
shapes,  you  may  go  to  the  "quick-select"  option,  which 
presents  you  with  an  on-screen  palette  representing  every 
command  of  which  ANIMATOR  is  capable,  much  as  the  Fast 
Menu  does  in  IMAGES. 

When  your  routine  is  done,  return  to  the  Time  menu  and 
select  Replay  All.  Now  your  creation  will  run  in  the  proper 
sequence  and,  if  you  really  like  what  you've  done,  you  can 
select  Replay  Loop  and  allow  your  routine  to  continually 
repeat  itself  while  you  go  drag  all  your  friends  and  neighbors 
into  the  house  to  show  them  -  or  while  customers  in  your 
showroom  are  caught  by  the  conlinous-running  display. 

Whatever  routines  you  create  can  be  saved  to  disk  and  a 
storyboard  option  allows  you  to  set  up  an  order  in  which 
related  routines  will  be  recalled  from  disk  in  order  to  make 
longer  routines  possible.  We  also  see  this  as  a  terrific  tool  to 
be  used  with  a  VCR  and  the  composite  output  of  the  Amiga, 
as  a  means  not  only  of  building  longer  routines  on  video  tape 
but  also  of  being  able  to  replay  them  in  schools  or  offices  that 
may  not  yet  have  an  Amiga. 

With  the  Frame  Grabber  interface,  you'll  be  able  to  grab  and 
freeze  a  frame  from  videotape,  videodisk  or  direct  from  your 
video  camera.  Thus  loaded  into  ANIMATOR  as  a  background, 
you  can  embellish  it  with  whatever  animation  you  can 
imagine. 

Besides  video  sources,  you  can  load  in  paintings  created 
with  any  such  program  that  saves  material  in  the  IFF  format,  a 
growing  standard  developed  by  Electronic  Arts  -  including 
those  created  with  Deluxe  Paint  from  EA. 

In  summing  up,  we  would  have  to  say  that  Aegis  ANIMATOR 
is  all  we  hoped  it  would  be,  and  more.  It  is  easy  1o  use  and  it 
can  be  deeply  explored  after  only  a  swift  scanning  of  a  few 
pages.  This  should  not  be  taken  as  an  invitation  to  throw 
away  the  manual  and  bull  your  way  through,  however.  Read  it 
all,  refer  to  it  often  and  you  can  be  turning  out  animations  as 
good  as  those  seen  on  the  nightly  network  news. 

The  price,  in  a  package  that  includes  IMAGES  and 
ANIMATOR  along  with  extensive  and  easy-to-understand 
instructions  on  each,  is  $139,95  -  in  our  book,  a  bargain  price 
for  one  of  the  best  and  most  complete  creative  tools  available 
for  the  Amiga. 


Ervin  Bobo 

23  St.  Lawrence 

St.  Peters,  Mo.  63376 
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DELUXE  VIDEO 
CONSTRUCTION  SET 


A    Review 

byJOELOWERY 


Electronic  Arts  has  been  known  for  some  time  for  its  meaty 
programs.  DeluxePaint  comes  to  mind  as  a  lull  course  meal 
and  I'm  happy  to  report  that  Deluxe  Video  is  a  feast!  This  is 
one  of  the  most  mature  Amiga  products  written  to  date  and 
an  immediate  classic.  However,  like  all  great  works  of  art, 
definite  choices  were  made  and  some  people  will  be 
disappointed  with  these  selections.  But  let  those 
disgruntled  few  spend  a  little  time  at  least  appreciating  the 
completeness  of  Deluxe  Video.  It  is  truly  AMAZING. 

Deluxe  Video  (programmed  by  Mike  Posehn  and  Tom  Casey 
ol  Granite  Bay  Software)  is  layed  out  beautifully.  The  basis  of 
the  program  is  the  hierarchal  structure  of  a  video  containing 
certain  elements,  mainly  scenes,  and  each  of  those  being 
made  up  of  effects.  There  is  a  different  window  for  the  overall 
video  and  for  each  scene.  A  precise  timeline  allows  you  to 
easily  overlap  specific  effects  and  match  their  duration.  You 
simply  pick  up  eiJher  a  "Track"  icon  or  an  "Effect"  icon  and  lay 
it  where  you  wish.  Then  adjust  the  starting  time,  and  in  many 
cases,  the  duration.  This  is  word  processing  come  to  video, 
and  fine-tuning  your  creation  is  a  joy. 

One  can  really  get  a  sense  of  well  thought-out  long-range 
planning  here.  There  is  even  an  option  to  expand  your  Part 
Pool  (where  many  of  your  video  components  reside  in  RAM) 
if  you  have  more  than  51 2K. 

The  initial  disappointment  that  1  alluded  to  earlier  comes  from 
the  cry,  "Only  8  colors!"  (That's  8  per  background  and 
foreground,  and...  well  read  on.)  Here  is  where  the  main 
choice  was  made  to  emphasize  smooth,  continuous  video 
animation,  over  a  short  duration  32  palette  one,  like  Aegis' 
Animator.  Not  thai  one  is  better  for  this  reason,  they  are  just 
at  different  purposes.  Deluxe  Video  is  set-up  using  the 
Amiga's  dual-playfield  mode  which  allows  for  a  foreground  to 
overlap  a  background  (Hacker,  Skyfox,  and  Arcticfox  also 
employ  this  technique).  This  mode  uses  a  screen  buffer  for 
each  playfield  so  that,  effectively,  the  normal  32  color  lo-res 
palette  is  split  over  4  screens  a  visible  and  a  hidden  each  for 
the  background  and  foreground. 

The  hidden  background  allows  you  to  do  a  dizzying  array  of 
wipes  as  you  reveal  what  lies  "behind"  the  visible 
background.  Figure  out  the  combinations  possible  with  the 
ability  to  come  from  six  different  directions,  each  with  5 
different  stylistic  modifiers  (such  as  Slide  or  Shrink)  available, 
with  up  to  9  divisions,  either  horizontally  or  vertically.  I  spent 
an  entire  evening  trying  all  the  variations  and  I  didnt  even  get 
close. 


The  hidden  foreground  is  used  as  a  frame  buffer  to  process 
the  animation  sequences  in  a  "page-flipping"  technique. 
This  can  be  turned  off  with  a  Strobe  effect  so  that  trails  of 
yourobject  are  left. 


Using  Deluxe  Video  is  like  programming.  In  fact,  I  would  say 
it  is  quite  analagous  to  audio-visual  programming  with  a 
compiled  language  (more  about  that  last  phrase  in  a  bit).  For 
Amazing  Computing,  I  put  together  a  video  that  had  a 
firecracker  going  off  in  time  with  a  Cajun  ditty  from  Instant 
Music.  1  liked  that  one  so  much,  I  added  two  more,  all 
burning  down  to  the  fuse  and  popping  at  different  rates! 
There  are  several  "debugging"  utilities  included  in  Deluxe 
Video;  a  memory  map  to  identify  where  too  much  is 
happening;  a  clear  command;  and  a  stamp  feature  that 
moves  stationary  foreground  objects  to  the  background, 
thus  freeing  memory  overhead. 

Now  about  the  "compiled"  comment.  There  is  a  tremendous 
amount  of  disk  access  involved  with  Deluxe  Video.  Going 
back  and  forth  between  viewing  your  video  and  working  on  it 
is  very  disk  intensive.  Deluxe  Video  does  not  keep  your 
video  and  all  its  constituent  parts  in  memor/.  Each  time  you 
go  from  the  lay-out  Video  and  Scene  screens  to  the  viewing 
screen.  Deluxe  Video  saves  your  changes  to  disk  in  a 
working  file  (which  means  when  you  are  working  on  your 
video  it  takes  up  twice  as  much  disk  space)  and  then  loads 
the  player  portion  of  Deluxe  Video  and  reconstructs  your 
video  from  disk,  loading  in  each  picture  as  it  is  requested, 
fetching  each  sound,  and  so  on.  This  insures  that  the  critical 
timing  of  loads  will  be  duplicated  exactly  each  lime.  Then 
upon  returning  to  your  work  area,  Deluxe  Video  reloads  your 
most  recent  lay-out  screens.  If  you're  coming  from  a  Basic 
background  to  C  like  me,  the  parallels  to  the  time  spent  re- 
compiling your  source  code  are  all  to  obvious.  However,  as 
in  C,  the  results  are  worth  it. 

Another  specific  choice  of  the  programmers  was  to  make  this 
very  much  a  video-based  product.  Creations  can  be  greatly 
improved  by  running  them  through  a  VCR  at  a  slower  speed 
and  then  playing  them  back  normally.  An  option  is  available 
for  doing  this  at  either  1/2  or  1/4  speed,  thus  doubling  or 
quadrupling  your  frame  rate.  My  experience  with  this  shows 
that  while  there  is  a  major  benefit,  you'll  have  to  re-tune  your 
effects,  especially  the  music  and  sound,  in  order  to  get  the 
best  possible  results.  You  can  even,  if  you  have  access  to  a 
single-frame  recorder,  record  at  a  single-step  rate  giving  you 
the  smoothest  possible  animations. 
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Hard  Disk  Expansion  Box 
$225,00 


FEATURES: 

*  Same  size,  and  color  as  Amiga. 

*  Mounts  directly  on  top  of  Amiga. 

*  includes  40W  Switciiing  P/S, 

*  Floppy  Interface  PCB,  and 

*  Amiga  Interface  Cable. 

*  Space  for  5.25  floppy  or  HD, 

*  and  3.5  floppy  drive. 

EB1000  Cabinetw/PCBandP/S  (Wt.  10  lbs)  $225.00 

EBlOOO-l  EB1000w/3.5-flpy.&cables  (Wt.  15  lbs)  $350.00 

EB1000-2  EB1000-1  w/5.25-|ipy.&cbls.  (Wt,  20  lbs)  $475.00 

FD350  Amiga companbie  3.5"  floppy  (Wt.  5  lbs)  $  1 25.00 

IBIOO  Floppy  Interface  PCB  (Wt.  2  lbs)  $  25.00 

Ordering  Information:  include  $3.00  for  shipping  and  handling 
plus  S0.50  for  each  pound  over  5  lbs.  Shipped  UPS  ground.  No 
COO'S  please.  California  residents  add  6.5%  sales  tax, 

Send  check  or  money  order  to : 

STACAR  International 

1475S  Ventura  Blvd. ,  Suite  1-812 

Sherman  Oaks,  California  91403 

Telephone  #  (818)  904-1262 


In  the  play  mode  there  is  even  a  VCR  remote  controller  icon 
enabling  you  to  fast  forward,  reverse,  sl<ip  to  the  end  or 
beginning,  mute  the  sound,  or  loop  continuously.  There  is 
also  a  timer  to  better  help  your  fine-tuning. 

One  of  the  major  differences  between  Deluxe  Video  and 
Animator  is  that  here  you  can  incorporate  sound  and  music 
and  that  is  a  big  plus.  Songs  must  be  in  a  "SMUS'  (Simple 
Music)  IFF  files  such  as  from  Instant  Music  &  the  soon  to  be 
released  Deluxe  Music,  Music  and  sound  are  given  priority 
over  the  visual  effects  so  that  ihey  never  sound  draggy. 
Instruments  must  be  in  the  proper  data  drawer  when  you  try 
to  load  the  songs;  there  is  a  menu  option  which  allows  you  to 
change  those  defaults  another  sign  of  mature  programming. 
If  the  instruments  cannot  be  loaded  Deluxe  Video  defaults  to 
its  RAM  instrument,  which,  like  the  manual  says,  does 
indeed  sound  "something  like  a  piano.'  You  can  vary  the 
volume  and  speed  of  songs,  as  well  as  putting  a  Half  of 
Double  Volume  Effect  to  add  a  dynamic  range  to  them. 

Sounds  are  "8SVX"  (8  bit  sampled  sounds)  IFF  files  digitized 
sound  effects.  If  the  duration  chosen  is  longer  than  the 
sound  effect,  your  "plop"  or  "boing"  will  repeat  until  it  reaches 
your  selected  cut-off  point.  You  can  vary  the  volume, 
sampled  rate,  and  direction  (a  sliding  bar  going  from  the  left 
to  the  right  speaker).  These  guys  thought  of  everythingi 

Deluxe  Video  also  has  an  Animator-like  feature  for 
implementing  polygon  shapes  and  text.  It  is  not  as  full 
featured  as  Animator,  but  still  allows  you  to  rotate,  size,  and 
move  a  short  text  string  or  any  of  the  23  different  polygon 
shapes.  These  range  from  a  square  to  arrows  to  a  floppy  disk 


Deluxe  Video  Upvicw^- 

shape.  With  both  the  text  and  shapes  you  have  the  option  of 
italic,  shadow,  or  outline  variations  with  8  different  pattern 
fills  forthe  second  shadow  color. 

Another  big  feature  is  the  level  of  interactiveness  built  in  to 
Deluxe  Video.  There  is  a  KeyWait  effect  that  will  delay  the 
video  for  a  specified  time  or  until  a  specified  key  is  pressed. 
You  can  also  Chain  different  videos  together  giving  you 
videos  as  long  as  you  have  disk  storage.  Combining  those 
two  features  is  the  KeyChain  Effect  (nice  joke,  guys).  This 
allows  you  to  branch,  upon  a  specific  key  being  pressed,  to 
any  one  of  10  videos.  And  of  course  each  of  those  could 
contain  a  KeyChain,  ad  interactium...).  Here  is  a  mini- 
Adventure  Construction  Set  tossed  in!  I  can  even  see  how  it 
would  allow  programmers  to  map  out  their  games  visually 
before  coding! 

Finally  (whew!)  there  are  a  also  series  of  templates  for  some 

Quick  &  Dirty  (well,  not  so  dirty  really)  animation  routines  that 
are  featured  demos  to  access  pie  and  bar  charts  data.  These 
will  automatically  figure  the  percentages  and  sizes  of  the  pie 
slices  or  bars.  They  are  also  nice  as  "tutorials"  or  examples  of 
how  best  to  set  up  your  videos. 

Let  me  also  add  that  the  manual  is  very  complete  and  helpful. 
It  would  have  been  nice  if  they  could  have  alphabetized  the 
reference  section,    especially  since  they  make  such  a  big 
deal  out  of  not  reading  it  straight  through. 

Deluxe  Video  comes  with  three  disks;  besides  the  Key-Disk 
Maker  you  also  get  an  unprotected  Player  and  a  Parts  & 
Utilities  Disk,  The  Player  has  7  well-done  demos  on  it.  Parts 
&  Utilities  contains  three  utilities:  Framer  for  sequential 
animation  using  IFF  files  (DPaint  or  Images);  Unpack  for 
disassembling  your  videos  so  that  you  can  re-use  their 
constituent  parts;  and  VidCheck  a  video  compactor  that  also 
prints  out  a  breakdown  of  your  video  creation  including 
memory  usuage,  track  and  effects,  parts,  etc. 

Deluxe  Video  has  the  mark  of  a  "meta-program"  a  program 
that  generates  other  programs,  I  predict  that  not  only  will  we 
soon  be  awash  in  a  sea  of  video,  but  also  that  a  series  of 
utilities  will  spring  from  the  fullness  of  this  program.  Anybody 
want  to  try  implementing  sprites?  How  about  a  video  with 
commercial  breaks?  "And  now  back  to  our  show..." 
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Roomers 


By  The  Amigo 


Summer  is  traditionally  a  slow  time  in  the  computer  industfy; 
this  summer  is  no  exception,  even  for  the  Amiga.  There 
hasn't  been  a  lot  of  activity  this  past  month,  mainly  because 
the  summer  hits  are  out  (Marble  Madness,  Digi-View,  MIDI 
Gold,  etc)  and  all  the  developers  are  looking  forward  to 
Comdex/Fall  in  Las  Vegas.  This  is  the  BIG  show,  the  one 
where  everybody  has  CHRISTMAS  on  his  mind.  But  then 
again,  some  things  ARE  happening. 

You  may  have  heard  reports  that  Commodore  had  decided  to 
mass-merchandise  the  Amiga.  Well,  there's  a  long  story 
behind  that  one,  but  the  end  result  is  that  no,  only  specialty 
dealers  will  be  carrying  the  Amiga. 

Pascal  and  Lisp,  you  say?  Metacomco  delivered  the  new 
versions  of  both  to  Commodore  quite  some  time  ago. 
Apparently  it  is  still  lost  in  Quality  Assurance.  Not  actually 
LOST,  mind  you  --  it's  just  that  they  don't  feel  that  it  has  been 
shaken  out  enoughior  public  consumption. 

Absoft,  makers  of  AC/Fortran  forthe  Amiga,  now  have  a  Basic 
compiler  called  (would  you  believe)  AG/Basic.    Reportedly, 
AG/Basic  maintains  complete  compatibility  with  AmigaBasic, 
so  you  won't  have  lo  change  all  your  files  around  to  get  them 
compiled. 

News  from  CardCo:  First  of  all,  they  went  out  of  business.  All 
their  C-64  inventory  was  liquidated  by  the  bank.  The  aMEGA 
1  MB  board  was  purchased  by  a  company  called  C.  Ltd,  which 
just  happens  to  be  a  group  of  people  that  used  to  work  for 
CardCo.  The  aMEGA  RAM  board  is  still  shipping.  Also 
coming  from  CardCo/C.  Ltd  is  a  six-slot  Zorro  expansion  box 
for  $499.95  and  two  things  lo  put  into  that  box;  A  2MB 
memory  board  for  $799.95  and  a  20MB  DMA  hard  drive  for 
$799.95.  Let's  hope  we  see  them! 

Meanwhile,  if  you  have  the  aMEGA  1MB  board,  there  are 
some  'enhancements'  you  might  want  to  make.  These 
enhancements  do  not  void  your  warranty  (honest!),  and  if 
you'd  rather  have  C.Ltd.  perform  the  modifications,  you  can 
send  it  to  them  and  they  will  do  them.  The  enhancements 
make  your  RAM  run  with  no  wait  states.  For  the  hardware 
hackers,  here  are  the  two  fixes. 

First,  take  the  cover  off  the  drive  and  look  at  the  unit.  There  is 
a  row  of  straps  at  the  top  center  of  the  board  next  to  a  large 
capacitor.  It  should  be  strapped  like  so: 


If  yours  does  not  look  like  this  -  hooray,  you've  got  a  new 
board.  If  it  does  look  like  this,  take  an  exacto  knife  and  cut 
strap  5.  Then  solder  a  wire  so  that  strap  5  is  tied  high.  Your 
straps  will  now  look  like  this: 

000000000 

I  I  I  I  I   I   I 

000000000 

I   I 

000000000 


123456789 


Note  that  only  strap  5  has  changed  -  nothing  else.  Now  try 
your  board,  it  should  auto-config  and  pass  all  its  tests.  If  it 
does,  GREAT!  You  now  have  a  fast  RAM  board.  If  the  tests 
fail,  you  have  to  find  a  150pf  capacitor  (or  something  close) 
and  connect  one  end  to  pin  6  of  the  7486,  the  other  to  pin  7 
of  the  same  chip.  Here's  what  it  should  look  like: 

0< Add   this    150pf   cap 

/    \ 
/         \ 

7  6         5         4         3        2         1 
0       I 1 

resistor  — >  0  I          7486  chip        I 
0   I 1 

8  9    10   11   12   13   14 

/ 

I  Edge   Connector 
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Now  try  your  board.  If  H  doesn't  work,  better  call  C.Ltd! 

In  other  hardware  news,  look  for  Polaroid  to  link  up  with  a 
small  software  firm  in  producing  some  Amiga  products,  t  have 
heard  that  the  Polaroid  Palette  looks  great  on  the  Amiga. 

A  company  called  lO  Inc  has  decided  to  compete  with  CSA  in 
the  68020  add-on  market.  They  have  a  68020  and  68881 
board  that  plugs  into  the  Zorro  bus.  A  software  company 
called  Synergy  Microsystems  is  rumored  to  be  preparing  a 
UNIX  port  to  make  use  of  this  board.  Watch  this  space  for 
further  details. 
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Metacomco  has  linked  up  with  a  company  called  Nine  Tiles  to 
produce  a  cheap  network  interlace.  It  will  allow  linked  Amigas 
to  share  file  systems.  Meanwhile,  Ameristar  has  said  that  by 
the  time  you  read  this,  you  can  buy  an  Ethernet  interface, 
along  with  Sun  Microsystem's  Network  File  System  (NFS). 
NFS  allows  machines  to  talk  to  each  other  and  share  CPU  and 
file  space  as  if  they  were  one  machine.    NFS  runs  under 
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THIS   COMPUTER  A(NT  B/G 
\.  ENOUGH  FOR  TfJE  TWO  OF  US/ 


FIRE  YOUR 
EDITOR. 

And  put  Microsmiths*  TxEd 
to  use  for  you. 

•  FAST  display  updates  -  more  than  TWENTY 
TIMES  as  fast  as  "Ed". 

■*■    Designed  Irom  the  ground  up  to  take  advantage  of  the 
Amiga  user  interface. 
Multiple  windows. 

Very  easy  to  learn,  use  menus  for  online  help. 
Simple,  elegant  set  of  commands. 
Alternate  command  keys  shown  in  menus  allow  fast 
command  entr\'  for  experienced  users. 
Compact  code  works  well  ^\^th  Amiga's  multi- tasking. 
The  first  Amiga  director^'  requester  that  doesn't  make 
you  wait. 

•  All  around  utilitj^  editor  is  good  for  progiammers,  and  also 
useful  as  a  simple  word  processor.  Great  for  use  with 
terminal  programs. 

•  Pronounced  "Tex  Ed"  as  in  "Tex  Ed,  the  Faster 
Editor  in  Silicon  Gulch." 

To  order,  send  $59.95  in  check  or  money  order  plus 
$2.50  postage  and  handling  to:  Microsmiths'  TxEd,  P.O. 
Box  561,  Cambridge,  MA  02140.  Tel.:  (617)  576-2878. 
Mass.  residents  add  5%  sales  tax.  Amiga  is  a  trademark 
of  Commodore- Amiga,  Inc.  Designed  by  C,  Heath. 
Dealer  inquiries  invited. 


_        MICROSMITHSjrJC 


P.O.  Box  561,  Cambridge,  MA  02140 


Roomers  ^^ 

Berkeley  UNIX  on  lots  of  superminis  and 
supermicros,  as  well  as  VAXA/MS  and  PC- 
DOS.  Of  course.  Ethernet  and  its  utilities 
(telnet,  ftp)  are  mucfi  more  standard,  and 
apfjear  on  most  machines  that  support 
Ethernet.  Also  from  Ameristar  is  a  token 
passing  network. 

Look  for  a  new  ALINK  soon;  one  that 
supports  relative  addressing.  That  should 
bring  the  size  of  executable  programs 
down  considerably.  The  Manx  Aztec  C 
linker  supports  relative  addressing  now; 
that's  why  executables  compiled  and 
linked  under  Manx  G  are  smaller  than 
those  under  Lattice  0.  A  new  ALINK 
should  decrease  that  gap. 

For  you  COMAL  fans,  Unicomal  in 
Sweden  is  porting  it  to  the  Amiga.  Also 
being    ported    is    Precision    Software's 

Superscript  program. 

Hopefully  things  will  pick  up  next  month, 
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WHO  CAN  WRITE? 

New  England 
Technical 
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The  AmigaBasic  Tutorial 


Subroutines 


by  Kelly  Kauff  marc 


Compusen/e  [70206,640] 


Subroutines  are  primarily  what  a  computer  is  really  about. 
Computers  are  great  lor  doing  monotonous  things  over  and 
over  again. 

Well,  that's  what  a  subroutine  is  all  about.  It  allows  the 
computer  to  do  a  set  series  of  steps  on  data-over  and  over 
again.  Subroutines  exist  in  programs  to  be  referred  to  many 
times.  A  simple  example  of  this  would  be  a  routine  lo  add  a 
score  to  a  players  points  in  a  game,  while  updating  the  hi- 
score.  Instead  of  having  lines  all  over  your  program  saying 
something  li!<e,. 

"SC0RE=SCORE+POINTS"  and 

■IF  SCORE>HISCORE  THEN  HISCORE=SCORE." 

With  that  method,  you  would  have  LOTS  of  extra  lines  in  your 
program  which  takes  away  precious  memory.  Instead,  the 
alternative...  subroutines! 

Now  in  place  of  these  lines  all  over  the  place,  we  have  one 
area  of  the  program  set  away  to  do  just  that. ..keep  track  of 
scores.  Here  would  be  an  example  of  the  subroutine: 

SCOREKEEP: 

SCORE=SCORE+POINTS 

IF  SCORE>HISCORE  THEN  HISCORE=SCORE 

RETURN 

That's  a  subroutine.  They  start  by  being  named.  This  is  done 
by  typing  a  name  and  then  following  it  with  a  colon.  They  end 
with  the  command  "RETURN."  To  go  to  a  routine  (call  a 
routine),  you  simply  would  say: 

GOSUB  SCOREKEEP: 

MBasic  will  automatically  jump  to  wherever  in  the  program 
SCOREKEEP:  exists,  execute  ail  the  statements  between 
SCOREKEEP:  and  the  RETURN  statement,  and  then  upon 
executing  the  RETURN  statement,  jumps  back  immediately 
to  the  NEXT  command  following  the  original  GOSUB 
statement,  and  program  execution  continues  normally. 

It's  also  a  good  idea  when  using  subroutines,  to  locate  them 
at  the  bottom  of  the  program.  If  the  subroutines  are  located 
within  the  program,  MBasic  will  NOT  jump  over  them  just 
because  they're  subroutines,  it  will  however,  execute  them 
step  by  step,  and  then  generate  an  error  when  it  tries  to 


execute  the  RETURN  statement.  This  happens  because 
there  was  no  GOSUB  statement  to  "legally"  enter  the 
subroutine.  Also,  the  last  line  of  your  program,  that  is,  the  last 
line  before  the  subroutines  begin,  should  be  "END"  to  stop 
MBasic  from  executing,  there  by  keeping  it  from  stumbling 
into  the  subroutines. 

When  data  is  changed  within  a  subroutine,  such  as  our 
SCORE'S,  and  then  RETURNed  out  of  the  subroutine,  the 
data  will  NOT  go  back  to  it's  original  values  before  it  entered 
the  subroutine.  The  values  will  be  the  new  changed  values 
that  the  subroutine  performed  on  the  data. 

Subroutines  can  be  used  for  much  more  than  just  this 
rudimentary  example.  They  can,  for  instance,  be  used  in 
menu  driven  programs  (menu  driven  meaning  programs  that 
present  a  menu  of  options,  and  then  let  the  user  select  an 
option  by  pressing  a  key,)  to  execute  complete  commands 
and  then  RETURN  to  the  main  menu  once  the  operation  has 
been  completed.  Subroutines  also  make  it  nice  to  label  the 
different  parts  of  your  program  for  easy  identification  and  de- 
bugging. They  are  probably  one  of  the  best  bug-fighting 
elements  of  a  program  that  you  can  use. 

One  word  of  caution  when  using  subroutines  though. ..Make 
absolutely,  positively,  sure  that  that  the  steps  you  perform  on 
the  data  are  correct,  because  if  they  arent....big,  BIG, 
troublemscan  arise!!!!  (troublems=troubles+problems.) 

When  subroutines  have  been  line-tuned  and  are  working 
fine,  they  can  greatly  reduce  the  time  it  takes  to  develop  a 
good,  working  piece  of  software. 
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Window  Requesters 


in  Amiga  Basic 


By  Steve  Michel 


AMIGABASIC  allows  the  programmer  to  create  programs  that 
are  very  "user-friendly",  with  a  minimum  of  work.  One  of  the 
friendlies  that  is  fast  becoming  a  must  for  any  and  every 
program  is  the  'requester . 

A  requester  is  an  area  of  the  screen  that  "pops-up"  and 
prompts  the  user  for  a  response  to  a  situation  that  has  arisen 
in  the  program.  This  may  range  from  requesting  a  file  name  to 
be  loaded,  confirming  that  the  user  does  indeed  wish  to  quit 
a  particular  application,  or  informing  the  user  of  some  fatal 
error  that  has  just  occurred.  The  program  listing  included 
below  will  allow  you  to  easily  add  this  touch  to  your  programs. 

Window  Requester  is  generic  in  that  it  allows  for  maximum 
flexibility  in  where  the  requestor  appears,  what  prompt  it 
contains  and  its  color  combinations,  ft  is  designed  to  work  for 
any  request  that  needs  a  'yes'  or  'no'  response.  The  actual 
program  itself  is  contained  between  the  SUB  REQUESTER 
STATIC:  line  and  the  END  SUB  line.  All  lines  above  the 
STOP  command  are  a  simple  driver  to  show  the  ease  of  use 
of  Window  Requester.  Window  Requester  is  actually  a 
SUBPROGRAM.  This  means  that  although  it  is  contained 
within  the  framework  of  a  larger  program,  when  it  is  called  by 
the  larger  program,  it  acts  autonomously.  All  variables 
contained  within  the  SUBPROGRAM  are  known  only  to  the 
SUBPROGRAM,  and  are  thus  referred  to  as  'local'  variables. 
The  net  effect  of  this  situation  is  that  the  SUBPROGRAM  can 
be  incorporated  "as-is"  into  several  different  programs 
without  fear  of  the  SUBPROGRAM  corrupting  variables  with 
the  same  name  in  the  larger  program.  It  also  means  that  we 
can  cut  down  on  the  amount  of  programming  that  we  as 
programmers  must  do. 

Once  a  generalized  SUBPROGRAM  has  been  developed 
and  debugged,  it  can  be  stored  on  disk  and  then  added  to 
any  program  that  requires  it.  Ideally  then,  the  programmer 
could  begin  creating  a  whole  library  of  specialized 
SUBPROGRAMS  and  simply  add  them  to  the  program  that  is 
currently  being  created.  This  concept  of  programming  is 
often  referred  to  as  modular  programming.  Being  completely 
independent  sometimes  has  its  drawbacks  and  thus  a  way  of 
communicating  information  between  the  SUBPROGRAM 
and  the  larger  program  has  been  provided  by  the  SHARED 
statement  as  indicated  in  the  second  line  of  the 
SUBPROGRAM  example.  Any  data  that  is  to  be  passed  to  or 
from  the  SUBPROGRAM  must  be  passed  through  a  variable 
listed  in  a  SHARED  statement.  Any  variable  so  defined 
becomes  known  to  both  the  larger  program  and  the 
SUBPROGRAM. 

In  this  example,  this  includes  all  the  information  needed  to 
make  the  requester  function  as  desired.  Each  variable  is 
described  in  REM  statements  at  the  beginning  of  the  listing 
and  are  fairly  self-explanatory. 


A  word  about  the  color  numbers,  however,  may  be 
appropriate.  Color  numbers  zero  through  three  are  listed  as 
the  default  values  in  the  driver,  assuming  that  the  larger 
program  is  working  within  a  standard  AMIGABASIC  screen 
which  has  a  depth  of  two.  If  your  application  has  a  deeper 
screen,  the  color  choices  may  be  increased  as  allowed.  Color 
zero  is  the  default  screen  background  color  (usually  blue) 
and  should  not  be  used  to  print  a  message  as  it  will  not  be 
seen  againstihe  same  color  background. 

The  SUBPROGRAM  works  by  opening  a  window  within  the 
current  screen  and  then  directing  output  to  that  window. 
This  is  accomplished  by  the  WINDOW  and  WINDOW 
OUTPUT  statements. 

Once  output  is  directed  to  a  window,  all  locating  statements 
{LINE,  LOCATE.  PAINT)  are  relative  to  the  upper  left  hand 
corner  of  the  window  and  NOT  the  screen  in  which  the 
window  is  open.  The  location  of  the  window  within  the 
screen  is  specified  by  the  variables  REQX1  and  REQYl  and 
passed  from  the  calling  program.  After  the  requester  is 
drawn,  the  routine  WAITER  then  waits  for  the  mouse  to  be 
positioned  and  clicked  over  either  the  "YES"  or  "NO" 
response.  The  SUBPROGRAM  will  return  the  selected 
answer  to  the  calling  program  via  the  variable  CHOICES,  ^ust 
before  exiting  the  SUBPROGRAM,  a  WINDOW  CLOSE 
command  causes  the  window  and  all  the  displayed  data  to  be 
removed  from  the  screen.  The  important  feature  of  this 
windowing  technique  then  becomes  apparent.  The 
information  on  the  main  screen  that  was  covered  by  the 
requester,  is  now  redrawn  as  though  nothing  had  occurred. 
All  this  is  done  automatically  by  the  operating  system. 

Once  the  program  is  entered  and  saved  to  disk  as  a  regular 
AMIGABASIC  program,  it  should  also  be  saved  in  ASCII 
format.  This  is  required  if  it  is  to  be  added  as  a 
SUBPROGRAM  to  a  larger  program  at  some  later  time, 

To  save  the  program  in  this  manner,  enter  on  the  output 
window  SAVE  "WINDOW_REQUESTER".A.  Make  sure  the 
,A  is  outside  the  quotes.  You  may  also  select  SAVE  AS  from 
the  menu,  again  being  careful  to  use  the  quotes  correctly. 

When  the  SUBPROGRAM  module  is  needed,  it  may  be 
added  to  an  existing  program  by  using  the  MERGE 
command.  The  correct  syntax  is  MERGE  lilename",  where 
filename  is  the  name  of  a  file  saved  in  ASCII  format.  The 
SUBPROGRAM  will  be  appended  to  the  end  of  the  program 
currently  in  memory.  It  may  then  be  moved  with  the  CUT  and 
PASTE  operations.  How  easy  can  it  get? 


I  hope  this  small  piece  of  coding  will  enhance  your  program 
appearance  and  speed  abng  your  program  development. 


32 


¥@DMiitrai  Us  31 


Window  Requesters 


Program  Listing: 

R£M  Window  Requester  by  Stave  Michel 

REM  call  'REQUESTER'  whenevet:  a 
REM  YES  or  NO  answer  la  required 
REM'  set  following  vari»blo»  to  dealred  values 
before  calling 

'  raqxl   =  x  position  of  top  left-hand  corner  of 
requester  box 

■  reqyl   =  y  position  of  top  left-hand  corner  of 
requester  box 

'  backed  =  background  color  of  requester  box 
'  msgcol  =  color  of  written  message  in  box 
'  outcol  =  requester  outline  color 

■  iii£g$     =  message  pron^t  to  be  displayed 
1  —  22  characters  maxiinum 

'  titles$  =  the  title  to  appear  in  the  requester 
window  after  returning  froia  requester,  the  variable 
choices  will  eqpjal  "YES"  or  "NO"  reflecting  the 
user's  selection 

CLS 

INPUT  "starting  X  location";  raqxl  , 

INPUT  "starting  y  location";  reqyl 
INPUT  "background  color  (0-3)";  backed 
INPUT  "message  color  (0-3)";  msgcol 
INPUT  "outline  color  (0-3)";  outcol 
INPUT  "title" ;titl6$ 
INPUT  "message  string";  insg$ 
CALL  REQUESTER 
LOCATE  20,1:  PRINT 
CHOICE$ 
STOP 


The  Memorv  Location 


"THE  USER  CHOSE 


SUB  REQUESTER  STATIC: 

SHARED  titles,  msgS,  reqxl,  reqyl,  backcol,  msgcol, 

outcol,  CHOICES 

reqx2  =  reqxl  +  206:  reqy2  -=  reqyl  +  47 

yeax  ■  23:  yesy  -  26;  nox  =  134:  noy  =  yesy 

WINDOW  2, titles,  (reqxl, reqyl) - Creqx2, reqy2)  ,  0 

WINDOW  OUTPUT  2:  PAINT  (100, 20) , backcol 

msgpadS  =  "  "  +  LEFTS (msgS, 22)  +  "  " 

msglen  =  LEN{msgpad5) 

xloc  =  INT( (24-msglen)/2)  +  l:xline  =  (xloc-l)*e 

COLOR  mogcd:  LOCATE  2,  xloc:  PRINT  msgpadS; 

LINE  (xline,  7)  -  (xlina+8*msglen-l,  7)  ,  0 

LINE  (y6sx,yesy)- (yesx+S7, yesy+18) , outcol, bf 

COLOR  msgcol:  LOCATE  5,5:  PRINT  "  YES  "; 

LINE  (32,31)-{71,31),0 

LINE  (nox,  noy)  -  {nox+50 ,  noy+lB) ,  outcol,  bf 

LINE  (144,31)-(17S,31)  ,0 

LOCATE  5,19:  PRINT  "  NO  " ; 

WAITER: 

CHOICES  =  "none" 

WHILE  MOUSE (0)  <>  1 

WEND 

xpoa  =  MOOSE (3) :  ypos  =  MOUSE (4) 

IF  ypos  <  yesy  OR  ypos  >  yasy+lS  THEN  WAITER 

IF  xpos  >=  yesx  AMD  xpoa  <=  yoBX+54 
THEN  CHOICES  =  "YES" 

IF  Xpos  >=  nox  AND  xpos  <=  nox+48  THEN  CHOICES  = 
"NO" 

IF  CHOICES  =  "none"  THEN  WAITER 

WINDOW  CLOSE  2 
END  SUB 

•AC* 


—   AMIGA   OWNERS   — 
IMAGINE  A  STORE  BUILT  AROUND  THE  AMIGA! 
IT'S  HERE  now: I 
THE   MEMDRY   LOCATION 
3<?(b   WASHINGTON   STREET   tRT.lib) 
WELLESLEY,   MA     021B1 
<bl7   -   237   -   6B4,b 
JUST  A  FEW  DOORS  UP  FROM  THE  PLAYHOUSE 
FEATURING  THE  LATEST  AND  THE  GREATEST  FOR  AMIGA 
WHAT  DO  WE  HAVE? 
FINANCIAL  PLUS   INFO  BASE   LATTICE  C  ZORK  I 
DELUXE  PAINT   MASTERTYPE   MDUSTERPIECE   PAL 
FINANCIAL  COOKBOOK  BRATTACUS  HACKER   FOURTH 
SEVEN  CITIES  OF  GOLD   ONE  ON  ONE    MARAUDER 
TALKING  COLORING  BOOK   ANALYZE!    TEXTCRAFT 
AEGIS  ANIMATOR   ZORK  II   AEGIS  IMAGES   LISP 
MONKEY  BUSINESS    FORTRAN  77    SPELLBBEAKER 
AZTEC  C   SCRIBBLE    ZORK  III    DIGITAL  LINK 
RACTOR   ARCHON   GISMQZ  CUSTOM  PRINT  DRIVERS 
AMIGA  DOS  MANUAL  (BANTAM)   KID  TALK   BBS-PC 
TYCHON  UTILITIES     PAK-A-DISK    MOUSE  MATS 
ON-LINE    AMIGA  HANDBOOK  (SUNSHINE)     FLOW 
MOUSTERPIECE      HALLEY'S  PROJECT     PASCAL 
GRAPHICRAFT   UBZ   FOURTH   ARCTIC  FOX  A-TIME 
PAR-HOME   CABLES   MINDSHADOW    MUSIC  STUDIO 
BORROWED  TIME    DISCOVERY   SPELLCRAFT   TxED 
TALKING  TRIVIA      DIGI-VIEW     META-PASCAL 
MQDULA  II  DEVELOPERS  +  COMMER.   SPELLER  BEE 
ELEMENTARY   AMIGA   BASIC   BOOK    INFOMINDER 
BEGINNERS   GUIDE   TO   AMIGA      WRITE   HAND 
AMIGA  CROSS  DEVELOPMENT  ENVIRONMENT  FOR  IBM 
MIND  FOREVER  VOYAGING    BUSINESS  STATISTICS 
TYPING  TUTOR  +  WORD  INVADERS       WRITE  HAND 
AVETEX  1200  MODEM    EXPERIMENTAL  STATISTICS 
MIAMIGA   SALES  FDRCASTING   VIP  PRO.   MIRROR 
PENMOUSE  +  SERIES  ONE  TABLETS       MAXIPLAN 
ONE  MEG  RAM  EXPANDER   INFOMINDER   FISHDISKS 
AMICUS  DISKS   DYNAMIC-CAD   GOLDEN  HAWK  MIDI 
MIMETICS  SOFTWARE, MIDI .DIGITIZER   DISCOVERY 
GOLDEN  OLDIES    MODEMS    OKIMATE  20  PRINTER 
AMAZING  COMPUTING    AMIGA  WORLD   TRANSACTOR 
CANON  COLOR  INK  JET  AND  DRIVER     JUMPSTART 
SOFTWARE  RENTAL  CLUB       CONSIGNMENT  SALES 
AND  MORE  !  I  ! 
.-   A   BETTER   QUESTION   WOUUD   BE 
"WHAT   DON'T   WE   HAVE?" 
ONLY  WHAT  WORKS,  SATISFACTION  GUARANTEED 
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ECE  MIDI 
nUSICAL  INSTftUHENT  DIGITAL  INTERFACE 


The  ECE  MIDI  plugs  Into  the  lerial  port 
on  the  AMIGA  and  allowa  it  to 
coBBunlcate  with  aldi  coapatlble  aualcal 
Inatruaents  and  equlpaent.  For  your 
convenience  the  ECE  KIOI  baa  a  RS'232 
bypasa  port  ao  you  do  not  have  to 
dlaconnect  your  equlpaent  when  you  want 
to  use  a  noden  or  a  aerial  printer. 
Encased  In  a  aaall  attractive  Amiga  bone 
colored  box,  the  ECE  MIDI  haa  In,  Out, 
and  Thru  porta. 

Suu«ac«d  raulli  139. M 


fl»»«orch  &  Davalopmant 


SPEEDY  AMIGOS 
A  COLLECTION  OF  DOS  UTILITIES  FOR  THE  AMIGA 


SPEEDY  AMIGOS.  developed  vi 
uaer  In  alnd,  contalna  over 
quickly  and  easily  execut 
Pull'dovn  aenui,  windowing, 
syntax  errors  are  kept  to  a 
routines  have  been  enhanced 
Where  la,  Undelete,  and  Punc 
efficient.  SPEEDY  AMIGOS  ala 
enhances  the  Aalga  uaer  Inte 


3  lajA.  I 


th  both  the  novice  and  experienced 
SO  handy  DOS  routines  that  can  be 
ed  with  the  aouae  or  keyboard, 
and  built  In  requeatora  assure  that 
■inlaua.  Several  axlatlng  AaigosDOS 
and  new  featurea,  such  as  Spooler, 
tlon  Keys,  have  been  added.  Past  and 
plifles  disk  operation  utilities  and 

rface. 

Siiu««t«d  ratallt  164.93 
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AMIGA  REF 
A  QUICK  REFERENCE  CARD  FOR  AHIGOSDOS  VERSION  1.1 


In  AMIGA  EEP,  DOS  coouDanda  are  logically  grouped  by  type  -  DISK, 
PILE,  UTILITY,  and  BATCH  -  to  help  you  quickly  find  the  couand 
or  syntax  that  you  need.  Tips  on  getting  atarted,  examplea  of 
uaage  for  AalgaDOS  routlnea,  and  a  coaplete  Hating  of  HILDCAEDS, 
DEVICE  and  CONTIOL  CODES  are  Included.  Advice  on  working  with  a 
KAM  DISK  and  getting  AMIGA  HELP  are  also  Included. 

Suutatad  ratalli  12.95 

Aalga  tad  AalgaOoa  ara  tradaaaika  of  CoawMlora -Aalga ,  Inc. 

ICI  tassarch  &  Dtvalopaant  Corp. 
1651  N.  Monroe  Street 
Tallahassee,  PI.  32303 

904-681-0786 
fUs^ord.  a  D.««i«pm«M  Dealer  Inquires  Helcoae 


ROT 

By  Colin  French; 


If  you're  itching  to  experiment  with  3D  graphics  on  your 
Amiga,  try  this  AmigaBasic  program.  With  ROT  you  can  create 
an  object  composed  of  up  to  95  points  and  95  filled 
polygons.  All  you  need  is  at  least  51 2K,  a  mouse,  and  the 
patience  to  find  the  mistakes  you  make  while  typing  it  in! 

(ROT  is  available  on  an  Amicus  disk.  The  disk  also  contains 
several  demo  objects.)  ROT  requires  a  lot  of  memory.  If  your 
WofkBench  does  not  show  at  least  380,000  bytes  free,  do 
not  try  to  run  it.  A  normal  two  drive  51 2K  system  should  have 
this  much  available  after  booting  up  the  WorkBench  disk.  A 
file  that  came  on  the  AmigaBasic  disk  called  'graphics. bmap' 
must  be  on  the  same  disk  as  ROT, 

AN  OVERVIEW 

In  ROT  an  object  is  composed  of  filled  polygons,  like  the 
faces  of  a  cube.  A  polygon  is  created  by  selecting  the  points 
used  as  its  vertices.  Each  polygon  must  have  at  least  three 
vertices  but  no  more  than  six.  A  different  color  can  be 
assigned  to  each  polygon.  Careful  choice  of  hues  can 
produce  a  shaded  effect.  Once  an  object  is  created,  a  series 
of  frames  are  drawn  each  with  the  object  in  a  different 
position.  The  frames  are  captured  as  bitmapped  images.  By 
showing  them  quickly  in  sequence  the  object  will  go  through 
an  animated  action.  In  every  frame,  you  specify  the  rotations 
and  translations  of  the  object  along  all  three  axes.  For 
example,  using  a  larger  and  larger  Y  axis  rotation  in  each 
(rame  produces  a  spinning  action  when  the  sequence  is 
played  back. 


EDITING  OBJECTS 

When  ROT  is  first  started  the  Object  Editor  screen  is 
displayed.  You  can  switch  to  the  Action  Editor  by  selecting 
the  first  item  in  the  ACTION  menu.  To  get  back,  just  choose 
the  top  item  in  the  OBJECT  menu.  On  the  left  of  the  Object 
Editing  screen  are  three  views  of  your  object  showing  its  top, 
side,  and  front.  To  see  how  these  fit  together,  imagine 
folding  the  top  and  front  views  away  from  you  until  their 
edges  touch.  You  now  have  a  half-cube  that  surrounds  your 
object.  Any  rotations  applied  to  the  object  will  take  place 
around  the  center  of  this  cube.  In  all  three  views  a  green 
circle  highlights  the  currently  selected  point.  Two  points  will 
often  appear  to  be  right  on  top  of  one  another.  Carefully 
check  the  position  of  the  highlight  in  all  three  views  to  make 
sure  you've  selected  the  point  you  really  want. 

A  point  with  all  three  coordinates  set  to  zero  is  considered 
nonexistent  and  is  not  displayed.  Clicking  in  a  view  will 
change  two  of  the  point's  coordinates  so  it  ends  up  under 
the  cursor.  Which  two  coordinates  are  changed  depends  on 
the  view  in  which  you  click.  By  doing  this  in  at  least  two  views 
you  can  position  the  point  exactly  where  you  want  it  in  3D 
space.  The  edges  of  the  currently  selected  polygon  are 
highlighted  in  orange.  Of  course,  rf  it  does  not  have  any 
vertices  chosen  for  it  yet  then  the  polygon  doesn't  exist  and 
no  highlighting  appears. 


On  the  upper  left  of  the  Object  Editing  screen  is  a  block  of 
controls  that  deal  with  points.  At  the  top  is  a  slider  for  picking 
the  point  to  modify.  Click  on  the  arrows  to  go  to  the  next  or 
previous  point,  or  anywhere  within  the  slider  to  quickly  skip 
through  the  list.  The  point  you  select  is  highlighted  in  the 
three  views  on  the  left  and  its  coordinates  can  be  changed  by 
clicking  within  the  views.  To  quickly  set  all  the  coordinates  of 
a  point  to  zero,  click  on  the  'ZERO  POINT'  box.  This  becomes 
a  nonexistent  point,  so  be  careful  that  no  polygon  was  using 
it  as  a  vertex. 

Below   the    point   controls    is    another   set    used   to    edit 

polygons.  A  polygon  is  created  by  selecting  the  points  that 
form  its  vertices.  Us©  the  points  slider  to  highlight  the  point 
you  want  then  click  on  'ADD  POINT  to  use  it  as  a  vertex.  A 
polygon  can  have  between  three  and  six  vertices.  Its  edges 
are  highlighted  in  orange  in  the  three  views.  The  order  in 
which  you  specify  the  points  is  important.  Go  in  one  direction 
around  the  perimeter  of  the  polygon.  If  you  see  the  edges 
crossing  you'll  know  the  points  are  out  of  order.  Click  on 
'UNDO  POINT  to  back  up  through  the  list  of  vertices  until  the 
problem  is  eliminated.  To  get  rid  of  the  polygon  entirely  click 
on  'DELETE  POLYGON'. 

Down  at  the  bottom  of  the  screen  is  a  color  palette.  The  color 
that  will  be  used  to  draw  the  currently  selected  polygon  is 
highlighted  with  an  orange  rectangle.  To  change  it,  click  on 
the  color  you  want.  By  selecting  items  in  the  OBJECT  menu 
you  can  save  the  database  of  your  3D  object,  load  a 
previously  saved  object,  or  erase  the  object  and  start  over. 
The  files  saved  will  have  the  suffix  '.ROTOBJ'  appended  to 
the  name  you  supply.  When  loading  an  object  do  not  type 
this  suffix,  just  the  filename.  If  you  forget  the  name  of  a  file, 
select  'Files'  from  the  ROT  menu  and  try  to  spot  it  as  the  list 
scrolls  by! 

EDITING  ACTIONS 

Pick  the  first  item  in  the  ACTION  menu  to  display  the  Action 
Editing  screen.  The  top  section  is  where  your  object  will  be 
drawn  and  along  the  bottom  are  several  controls.  Use  the 
slider  on  the  left  to  select  the  frame  to  work  with.  In  each 
frame  you  can  set  the  rotations  and  translations  of  the  object 
along  all  three  axes.  To  change  a  particular  value,  click  on  it 
and  type  the  number  you  want.  Values  are  checked  to  make 
sure  they  fall  within  acceptable  limits.  An  orange  arrow  will 
appear  to  let  you  know  that  the  frame  needs  to  be  redrawn. 

Clicking  on  the  'REDRAW  FRAME'  button  will  recalculate  the 
image  in  the  frame  so  it  corresponds  to  the  factors  you've  set. 
Then  advance  to  the  next  frame,  set  its  factors  and  redraw  its 
image.  Continue  in  this  manner  until  all  1 2  frames  are  done.  If 
you  go  back  to  the  Object  Editor  screen,  modify  the  object 
and  then  return,  the  frames  wilt  not  match  the  revised  object. 
To  update  them  you  could  advance  to  each  one  and  click  on 
'REDRAW  FRAIvIE'  or  you  can  use  'REDRAW  ALL'  to  do 
each  in  sequence.  Once  all  12  frames  have  been  drawn, 
click  on  "PLAY"  to  show  the  animation  sequence.  Adjust  the 
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HOUSE 


(713)     988-3018 


11600    S.W.     FRWY 


STE.     B-2  16 


HOUSTON,    TX.    77031 
HARDWARE 

512  K  Color  System  Sony  RGB  Monitor 

Canon  PJ-IBSBA  Color  Printer   Avatex  1200  Modem 

SOFTWARE 


hct i vision 
Byte  By  Byte 
Digi-View 
Inf ocom 
Lat t  i  ce 
Micro-Systems 
Mi  ndscape 
TDI 


Aegis 

Chang  Labs 

Eletroni  c  Arts 

JUM 

Manx 

Himet  ics 

New  Horizons 

VIP    Technologies 


Above    is    only    a    ,sam(jle    lislintj 


ROT 

speed  slider  as  required.  To  show  the  frames  continuously, 
look  under  the  ACTION  menu  and  select  'REPEAT  AT  END'. 

A  checkmark  next  to  this  item  indicates  when  it  is  activated. 

Another  option  in  the  menu  is  'REVERSE  AT  END'.  If  you 
choose  this  the  frames  will  be  shown  from  first  to  last  and 
then  back  to  the  first  again.  Both  these  options  can  be 
combined.  To  halt  a  continuously  running  sequence,  click  on 
'STOP".  Other  rtems  in  the  ACTION  menu  will  save  the 
object's  action,  load  an  action  from  disk,  or  erase  the  current 
action  and  start  over.  The  file  that  is  saved  does  not  include 
the  bitmapped  frames,  just  the  factors  that  are  used  to  draw 
them.  When  you  load  an  action,  click  on  'REDRAW  ALL'  to 
regenerate  the  frames.  They  are  not  saved  because  they 
occupy  almost  109K.  It  would  require  over  six  minutes  to  load 
or  save  them  under  AmigaBaslc.  Oh  please  oh  mighty 
Microsoft,  give  us  BLOAD  and  BSAVE  commands  next  timel 


The  final  item  in  the  ACTION  menu  is  'CALC  BETWEEN...' . 
This  will  calculate  and  draw  the  frames  that  lie  between  any 
two  that  you  specify.  For  example,  set  the  Y  rotation  of  frame 
one  to  90  degrees  and  that  of  frame  seven  to  180.  Since  you 
want  to  take  six  steps  to  go  from  90  degrees  to  180,  each 
frame  inbetween  will  have  a  Y  rotation  15  degrees  greater 
than  the  previous  one.  You  could  do  this  yourself  by 
advancing  one  frame  at  a  time,  setting  the  Y  rotation  and 
redrawing  it,  but  "CALC  BETWEEN..."  aulomales  the 
procedure.  The  direction  of  rotation  is  always  chosen  to 
move  the  object  through  the  smallest  angle  possible.  If  you 
set  the  starling  frame  to  zero  degrees  and  the  ending  frame 
to  270,  then  the  object  will  be  rotated  -90  degrees,  not  + 
270  degrees. 

HINTS  AND  CAVEATS 

The  first  time  any  AmigaBasic  routine  is  used,  it  is  very  slow. 
Subsequent  calls  to  the  same  part  of  the  program  execute  at 
a  normal  speed.  There  are  some  parts  of  ROT,  such  as  the 
input  routine  for  filenames,  which  are  so  slow  at  first  that  you 
might  suspect  the  program  has  'hung'.  Exercise  a  bit  of 
patience  before  pummelling  the  computer.  When  the  frames 
are  played  back  there  is  a  fair  amount  of  flicker.  This  may  be 
caused  by  basic  drawing  the  bitmapped  images  in  the  middle 
of  a  screen  scan.  Sometimes  changing  the  colors  of  an 
object  helps  minimize  this  problem. 

The  X  and  Y  translations  are  not  true  3D  transformations. 
Instead  they  indicate  where  to  draw  the  frame  on  the  screen. 
This  was  done  to  reduce  the  size  of  the  images  and  therefore 
the  amount  of  memory  required  to  store  them.  As  each 
succesive  frame  is  displayed  it  overlays  the  previous  one  and 
thereby  erases  it.  If  you  use  too  great  an  X  axis  translation 
with  a  large  object  then  parts  of  it  may  not  be  erased  properly. 
Either  make  a  smaller  object  (use  a  Z  translation  to  reduce  its 
apparent  size)  or  smaller  changes  in  X  translation. 

The  ROT  program  itself  fills  the  standard  25K  basic 
workspace.  I  had  to  delete  most  of  the  comments  to  gel  it  to 
fit.  Something  else  that  got  squeezed  out  is  error  checking 
during  disk  I/O,  so  be  sure  you  know  the  correct  name  of  a  file 
when  you  load  it.  Usethe  "Files'  option  in  the  ROT  menu  to 

check  what's  on  the  disk. 
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ROT 


GOTO  main: 

Intro : 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

PRINT 

PRINT" 

PRINT" 

PRINT" 

RETURM 


ROT 

By:  Coliji  French     May  1986 
Last  Revision:   19/06/Se  CJF 

Copying  Is  encouraged! 


Note:  AmigaBasio  routines  are  very 
slow  the  first  time  they  are  used. 
Be  patient  if  ROI  seems  to  "hang'.' 


main: 

IF   FEE{0)<1000004    THEN    CLEAR,  150000S 

GOStJB    init 

quit=0 

WHILE    NOT (quit) 

b=MOUSE(0) 

X5=M0USE(1) 

y=MOUSE(2) 

IF    bOO    THEN 

IF    objscr    THEN    GOSnB    edobj 
IF    actEcr    THEN   SOSUB   edact 

END    IF 

m=MEKU ( 0 ) 

i=KENU(l) 

IF  mOO  THEN  GOSUB  menuchk 

Z$=INKEY$ 

IF  zS<>""  THEN  GOSUB  keychk 
WEND 

GOSUB  cleanup 
END 

menuchk : 

ON  m  GOSUB  rotmenu, objmenu, actmenu 
RETURN 
rotmenu: 

IF  i=l  THEN  GOSUB  list files 


IF  i=3 

THEN  quit=(-l) 

RETURN 

objmenu : 

IF  i=l 

AND  obJBCr=0  THEN 

obJBcr=(-l) 

actEcr=0 

MENU 

2,1,2 

MENU 

2,2,1 

MENU 

2,3,1 

MENU 

2,4,1 

MENU 

3,1,1 

MEKU 

3,2,0 

MENU 

3,3,0 

MENU 

3,  4,0 

MENU 

3,6,0 

MENU 

3,7,0 

MENU 

3,8,0 

GOSUB  drw. objscr 
END  IF 

IF  i=2  TtffiN  GOSUB  loadobj 
THEN  GOSUB  saveobj 
THEN  GOSUB  nawobj 


IF  1=3 
IF  1=4 
RETURN 
actmenu : 
IF  i=l 


AND  actscr=0  THEN 
actEcr= (-1) 
objscr=0 
MENU  3,1,2 
MENU  3,2,1 


MENU 

3, 

3 

1 

MEND 

3, 

4 

1 

MENO 
MEND 
MENU 

3, 
3, 
3, 

1 
8 

l+ABS(actrpt) 
1+ABS (act rev) 

1 

MENU 

2, 

1 

1 

MENU 

2, 

2 

0 

MENU 

2, 

3 

0 

MENU  2,4,0 

FOR  n=l  TO  12 
frmchg(n)=l 

NEXT 

GOSUB  drw. acts cr 
END  IF 

IF  i=2  THEN  GOSUB  loadact 
IF  i=3  TEEN  GOSUB  saveact 
IF  i=4  TEEN  GOSUB  newact 
IS    1=6  THEN 

actrpt=NOT (actrpt) 

MENU  3,6,l+ABS{actrpt) 
END  IF 
IF  1«7  THEN 

actrev=NOT (actrev) 

MENU  3,7, 1+ABS (actrev) 
END  IF 

IF  1=8  THEN  GOSUB  calctween 

RETURN 

liatfilee: 

s$="Files  on:" 
GOSUB  drw.filereq 
a$="DFO:" 
GOSUB  getEtring2 

IF  bS<>"c"  AND  s$<>"C"  ASD  ■$<>""  THEN 
CLS 

FILES  E$ 
PRINT 

GOSUB  click. continue 
IF  objscrOO  THEN 

GOSUB  drw.objBcr 
ELSE 

GOSUB  drw.actscr 
END  IF 
GOSUB  nobut 
END  IF 
RETURN 

loadobj : 

B$="Load: " 
GOSUB   drw.filereq 
GOSUB   getstrlng 

IF    sS<>"C"    AND    sS<>"c"    AND    bS<>""    THEN 
eS=e$+" .ROTOBJ" 
OPEN    bS    FOR    INPUT    AS    #1 
FOR   n=0    TO    95 
FOR    (12  =  0    TO    3 

INPUT#l,pt  (n,n2) 
NEXT 
NEXT 

FOR    n=0    TO    95 
FOR    n2=0    TO    6 

INPUT  #1,  poly  (n,n2) 
NEXT 
NEXT 
FOR  n=0  TO  95 

INPUT#1,  polyolr  (n) 
NEXT 
FOR  n=0  TO  95 

INPUT#1,  vrt  (n) 
NEXT 
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CI.OSE  #1 

pt=l 

poly=l 
END  IF  .        , 

GOSDB  drw.objscr 
RETURN 

saveob j : 

s$="Save: " 

GOSUB  drw.flleraq 
GOSUB  getstring 

IF  bS<>"C"  and  bS<>"c"  and  b$<>""  then 
a$=a$+" .ROTOBJ" 
OPEN  B$    FOR  OUTPUT  AS  #1 
FOR  n=0  TO  95 
FOR  n2=0  TO  3 

PRINT#l,pt(n,n2)  ;  :. 

MEXT 
NEXT  , . 

FOR  n=0  TO  maxpoly 
FOR  n2  =  0  TO  G 

ERINTJtl,  poLy  (n,  n2)  ; 
NEXT 
HEXT 
FOR  n=0  TO  maxpoly 

PRINT#1 , polyclr (n)  ; 
NEXT 
FOR  n=0  TO  maxpoly 

PRINT#l,vrt(n); 
NEXT 

CLOSE  #1 
END  IF 

GOSDB  d£w.obj>cr 
RETORM 

newob j : 

s$="  erase  current  object?" 
GOSUB  you.eure 
IF  sura  THEN 

FOR  a=0  TO  maxpt 
FOR  n2=0  TO  2 

pt(n,n2)=0 
NEXT 
MEXT 

FOR  n=0  TO  maxpoly 
FOR  n2=0  TO  6 
poly (n,n2)=0 
NEXT 

polyclr (n)=0 
vrt(n)=0 
NEXT 
pt=l 
poly=l 
END  IF  ._ 

GOSUB  drw.objscr 
EEIUBN 

I 

loadact : 

»5="Load:  '■ 

GOSUB  drw.filereq 

GOSUB  getstring 

IF  E$<>"C"  AND  bS<>"c"  and  a$<>""    THEN 

aS=BS+" .ROTACT" 

OPEN  E$  FOR  INPUT  AS  #1 

FOR  n=l  TO  12 

INPUT#1,  xrot  (n)  ,  yrot  (n)  ,  zrot  (n) 
IKPOTjJl,  xtran  (n)  ,  ytran  (n)  ,  ztran  (n) 

NEXT 

INPDT#1,  spd,  actrpt,  actrav 

CLOSE    #1 


frin=l 

FOR   n=l    TO    12 
£nnchg(ti)=l 

NEXT 

GOSUB   drw.fnnnvim 

GOSUB   drw.epdnum 

GOSUB    drw. factors 

GOSUB    drw. update 

MENU    3,  6,1+ABS  (actrpt) 

MENU  3,7, 1+ABS (actrev) 
END  IF 

LINE  (0,0)-  (311,131)  ,0,bf 
GOSUB  putfm 
RETURN 

saveact : 

sS="Savo: " 

GOSUB  drw. file req 

GOSUB  getstring 

IP  ■$<>"C"  AND  a$<>"c"    AND  ■$<>""  THEN 

a $=«$+" .ROTACT" 

OPEN  B$  FOR  OUTPUT  AS  #1 

FOR  n=l  TO  12 

PRINT#l,xrot (n) ;yrot (n) ;2rot (n) ; 
PRINT#1,  xtran  (n)  ;ytran  (n)  ;  ztran  (n)  ; 

NEXT 

PRINT#1, spd; actrpt; actrev; 

CLOSE  #1 
END  IF 

LINE(0,  0)  -  (311,  131)  ,  0,bf 
GOSUB  putfrm 
RETURN 

n«wact : 

m$="    erase  current  action?" 
GOSUB  you . sure 
IF  sure  THEN 
FOR  n=0  TO  12 

xrot  (n)=0:yrot  (n)=0:zrot  (n)°>0 
xtran  (n)  =0  :ytran(n)sO:  ztran  (n)  sQ 
NEXT 
Bpd=20 
actrpt=0 
actrev=0 

MENU  3,6,1  ,.- 

MENU  3,7,1 
fnn=l 
END  IF 

GOSUB  drw.actacr 
RETURN 

calctween : 

GOSUB  gettween 

IF  Btfnn>endfrm  THEN  SWAP  st f rm, endf rm 

stp=endfrm-stfnn 

LINE  (0,0)-  (311,131)  ,  0,bf 

IF  stp>l  THEN 

xrot=xrot (endfrm) -xrot (stfrm) 

IF  xrot>180  THEN  xrot=(360-xrot)  *  (-1) 

IF  xrot<-ieO  THEN  xrot=xrot+360 

Btpxrot=xrot/Etp 

yrot=yrot (endfrm) -yrot (stfrm) 

IF  yrot>lSO  THEN  yrot=(360-yrot) *{-l) 

IF  yrot<-iaO  THEN  yrot=yrot+360 

Btpyrot=yrot/Btp 

2rot=zrot (endfrm) -zrot (stfrm) 

IF  zrot>180  THEN  zrot= (360-zrot ) * (-1) 

IF  zrot<-180  THEN  zrot=zrot+360 

BtpzJrot=zrot/»tp 

xtran=xtran (endfrm) -xtran {stfrm) 
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ROT 

istpxtran=xtran/stp 

ytran=ytran  (ondf  rm)  -yttan<6tfrm) 

stpytran=ytran/stp 

ztran=ztran (andf rm) - ztran { stf rm) 

Btpztraii=2tran/stp 

FOR   frm=fitfirm+l    TO   endfrm-l 
n=fnn-Etfnn 

xrot  {frTn>=xrot  (stfcm)  +INI  (Etpxrot*n) 
IF.  xrot  (fnn)>359    THEN    xrot  (frm)  =xrot  (frm) - 

IF    xrot(fnn><0    THEN    xrot  (frm)  =xrot  (frm) +360 

yrot (frm) =yrot (stfrm) +INT (Etpyrot*n) 

IF    yrot (frm) >3 5 9    THEN    yrot ( frm) =yrot ( frm) - 

IF    yrot(fnn)<0    THEN    yrot  (frm)=yrot  (frm) +360 

zrot  (frm)  =zrot  (stfrm)  +INT  (stpztot*ri) 

IF    zrot (frm) >359    THEN    zrot (frm) =zrot (frm) - 


IF    zrot  (frm)  <0    THEN    zrot  (frm)  =ztot  (frm) +360 

xtran(fnn)=xtran(stfcm)+INT  (stpxtran*n) 

ytran(frm)=ytran(stfrm)+INT  (stpytran*n) 

ztran (frm) =zt ran (stfrm) +INT ( stpztran*n) 

GOSUB    drw.frmnum 

GOSOS   drw. factors 

GOSUB   high. redraw 

GOSUB   drw. frame 

GOSUB  getfrm 

frmchg(frm)=0 

GOSUB  drw. update 

GOSUB  unhigh. redraw 
NEXT 

frm=Etfrm 
GOSUB  drw.frmnum 
GOSUB  drw. f actor E 
END  IF 

LINE  (0,0)  -(311,131)  ,0,bf 
GOSUB  put frm 
RETURN 

gettween: 

GOSUB  drw . tweenreq 

maxchar=2 

xt=18e:yt=74 

GOSUB  getstrlng 

BtfrTO=VAL(6$) 

IF  Btfrm<l  THEN  etfrm=l 

IF  Btfrm>12  THEN  fitfrm=12 

yt=82 

GOSUB  getstrlng 

endfrm=VAL(B$) 

IF  6ndfrm<l  THEN  andfrm=l 

IF  endfrm>12  THEN  endfnn=12 
RETURN 

drw. tweenreq: 

LINE  (58,  48) -(254,  92)  ,0,bf 

LINE  (60,  SO) -(252,  90)  ,3,bf 

LINE  (61,  51) -(251,  89),  2,  bf 

CALL  movat  (rpfi,  76,  66) 

PRINT"Calculata  Inbstween" 

CALL  moves (rps, 92, 74) 

I'RINT"From  frame:" 

CALL  move£ (rp£, 108, 82) 

ERINT-To  frame:" 
RETURN 

drw. filereq: 

LINE  (50,  48) -(262,  92),0,bf 
LINE  (52,  5  0) -(2  60,  90),3,bf 
LINE  (S3,  51) -(259,  89),  2,  bf 


Great 

C0\/ER-UPS 


Protect  your  investment  with  opaque  uinyl  covers. 

Amiga  and  Monitor       ,  $8.95 

Printers  $4.95 
(Specify  brand,  model  and  width) 

3  V;"  Disk  Drive  ..                                 $1.95 

5 'A"  Disk  Drive              ,  $1.95 

Sidecar                          •  $3.95 


TO:    C5REAT  C0VER-UP5 

6805  5W  8th  Avenue 
Portland,  Oregon  97219 


Phone:  (503)  246-897  7 


SEND  ME: 


Amiga    &    Monitor    Covers    ®     8.95    ea 

. @   ea 

®   ea 


Please  add  $1.23  each  for  postage  and  handling 
Dealer  inquiries  invited 


CALL  moves (rpfi, 60, 66) 
PRINT "Temporary  File  Requestor" 
CALL  moves  (tpS,  92,  74) 
PRINT" ('C  to  Cancel)" 
CALL  moves  (rps,  60,  82) 
PRINT  B$ 
Xt=68+LEN(B$)*8 
yt=82 

maxchar=23-LEN (s$) 
RETURN 

you. sure: 

GOSUB  drw . sureraq 
GOSUB  nobut 
answer=0 

WHILE  NOT  (answer) 
b=MOUSE(0) 
x-MOUSE(l) 
y=M0USE(2) 
IF  bOO  THEN 

IF  y>80  AND  y<92  THEN 
IF  x>75  AND  x<127  THEN 
sure={-l) 
anEwer=  (-1) 
END  IF 

IF  X>187  AND  X<239  THEN 
Bure=0 
answers  (-1) 
END  IF 
END  IF 
GOSUB  nobut 
END  IF 
WEND 
RETURN 
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SHARPEN  YOUR 
IMAGE    With 

Digital    Color 
Slides     Posters 

For  Professional  Presentations, 
Art  Portfolio  or  even  for  Fun! 

Let  your  Amiga  images  shine  with  the  quality  you 
deserve.    Any  image  created  from  Deluxe  Paint, 
Graphicraft  or  Propaint  can  be  made  into  high 
quality  Digital'*'  35mm  Slides  or  Studio  Posters 

No  additional  software  or  hardware  needed.   Just  send  us  your 
files  as  they  arc  stored  on  disk  and  in  2-3  days  (plus  delivery) 
you'll  gel  back  ihe  proud  results.   Slides  are  S13  each.    Matte 
or  gloss  Studio  Prim  Posters  11  x  1 7  arc  S25.50  plus  slide. 
Also  available.  Digital  Color  Separations  (as  seen  in 
AmigaWorld  Magazine)  and  8  x  10  Color  Studio  Prints  and 
Transparencies.  Orders  must  be  prepaid  (with  sales  lax  in 
California.)  Send  your  disk  and  check  to: 

555  I9ih  St.  2nd  Fir. 

San  Fran.,Ca.  94107 
-Corp.      41S  626-8366 


i:  ImageSet 

—  ■ *^ corn. 


•Images  uri;  nut  caplurc-d  by  photographic  methods. 


dxH.surereq: 

LIKE(43,  48)- (270,100)  ,0,bf  "'  „  ' 

LINE  (45,  50) -(268,  98)  ,3,  bf 

LINE  (46,  51) -{267,  97)  ,2,  bf 

CALL  moves  (rpt,  S3,  66) 

PRINT"Ara  you  StIRE  you  want  to" 

CALL  movat (rpfi,S3,74) 

PRINT  LEFT$(B$,24) 

LINE(75,80)-(127,92)  ,l,b 

LINE  (187,  80) -(239,  92),  l,b 

CALL  moves  (rp£,  93,  89) 

PRINT"OK" 

CALL  moves  (rpS.  190,  89)      ■j,^, 

PRINT"CAHCEL"  .  .  ''. 

EETOSM 

keychk : 

RETURN 

edob j : 

IF  X>1S9  AND  x<306  THEN 

IF  y>24  AND  y<32  THEN  GOBUB  pt»lider 
IF  y>e2  AND  y<90  THEN  GOStJB  polyslldejr 
IF  y>36  AND  y<48  THEN  GOStffi  zeropt 
IF  y>94  AND  y<10  6  THEN  GOStffi  addpt 
IF  y>110  AND  y<122  THEN  GOSUB  undopt 
IF  y>12  6  AND  y<138  THEN  GOSOB  dalpoly 
IF  y>142  AND  y<171  THEN  GOStra  selclr 

END  IF 

IF  X>3  AND  x<82  AND  y>3  AND  y<82  THEN 
pt(pt,2)  =  {x-VXl)*(-l) 
pt(pt,0)  =  (y-vyl)*<-l) 
GOStJB  drw.vlew» 
GOStJB  nobut 

END  IF 


ROT  ~ 

IF  x>3  AND  x<82  AND  y>96  AND  y<175  THEN 

pt(pt,2)  =  (x-vx2)*(-l) 

pt(pt,l)  =  {y-vy2)*(-l) 

GOStJB    drw. views 

GOStJB    nobut 
END    IF 
IP    x>97    AND    X<17  6    AND    y>96    AND    y<175    THEN 

pt  (pt,  0>=x-vx3 

pt<pt,l)  =  (y-vy3)*{-l) 

GOSUB    drw. views 

GOStJB    nobut  ^ 

END    IF  '■  -    - 

RETtJRN  ' 


zeropt: 

p=pt  ■     ...       ■  . 

GOStJB   unhlgh.pt  *  -■ 

GOStJB  erase.pt 

pt(pt,0)=0 

pt(pt,l)=0 

pt(pt,2)=0 

GOStra   drw.pt 

GOStre   hlgh.pt 
RETtJRN 

addpt : 

IF    vrt(poly)>5    THEN    BEEP:RETtIRM 

IF    pt(pt,0)»0    AND    pt(pt,l)=0    AND    pt(pt,2)=0    THEN 
RETtTRN 

vrt  (poly)  =vrt  (poly)  +1 

poly  (poly,  vrt  (poly) )  =pt 

GOStJB    drw. views 

GOSUB   nobut 
RETURN 

undopt : 

IF    vrt (poly) >0    THEN 

poly  (poly,  vrt  (poly)  )  =Q 
vrt (poly) =vrt (poly) -1 
END    IF 

GOSUB    drw. views 
GOStiJB    nobut 
RETURN 

delpoly: 

IF   vrt  (poly)  >0   THEN  • 

c=polyclr  (poly) 

GOStJB  unhigh.clr 

FOR   n=0    TO   vrt  (poly) 
poly (poly, n) =0 

NEXT 

vrt  (poly)=0 

polyclr (poly) =0 

c=polyclr (poly) 

GOStJB   high.clr 
END    IF 

GOStJB   drw. views 
GOSUB  nobut 
RETURN 

selclr: 

IF    x>191    AND    x<304    THEN 

o=INT ( (x-192) /14) +INT ( (y-143) /7) *8 
IF    oOpolyclr  (poly)     THEN 
GOSUB   high.clr 
SH&P    c,  polyclr  (poly) 
GOStJB   unhigh.clr 
END    IF 
END    IF 
RETURN 


40 


1,  ^? 


=^RQT 

drw. views : 

G05DB  erase. vlewB 

p=pt 

GOSUB  high.pt 

FOR  p=l  TO  maxpt 
GOSUB  drw.pt 

HEXT 

p=pt 

t=poly 

FOR  poly=l  TO  maxpoly 
GOSUB  drw. poly 

HEXI 

poly=t 

GOSUB  high. poly 
RETURN 

erase .views : 

LINE  (2,  2) -{83,  83)  ,0,bf 
LINE  (2,  95) -(83,  176)  ,0,bf 
LINE(96,  9S)-<177,176)  ,0,bf 

RETORM 

drw.pt: 

IF  pt(p,0)<>0  OR  pt(p,l)<>0  OR  pt(p,2)<>0  THEN 
PSET(vxl-pt  {p,2)  ,vyl-pt(p,0)) 
PSET  (vx2-pt  (p,  2)  ,  vy2-pt  (p,  1)  ) 
PSET  (vx3+pt  (p,  0)  ,  vy3-pt  (p,  1) ) 
END  IF 
RETURN 

erase. pt : 

COLOR  0 
GOSUB  drw.pt 
COLOR  1 
RETURH 

high . pt : 

CIRCLE (vxl-pt (p, 2) , vyl-pt (p, 0) ) , 2, 2 

CIRCLE  {vx2-pt(p,  2)  ,vy2-pt(p,l))  ,2,2 

CIRCLE  {vx3+pt(p,  0)  ,vy3-pt  (p,l))  ,2,2 
RETURN 

unhigh.pt; 

CIRCLE  (vxl-pt  (p,  2)  ,  vyl-pt  (p,  0)  )  ,  2,  0 
CIRCLE (vx2-pt (p, 2) , vy2-pt (p, 1) ) , 2, 0 
CIRCLE  (vx3+pt(p,0)  ,  vy3-pt  (p,l))  ,2,0 

RETURN 

drw. poly: 

IF  vrt (poly) >0  THEN 
PSET (vxl 
pt  (poly  (poly,  1)  ,2)  ,  vylpt  (poly  (poly,  1)  ,0)) 

PSET (vx2-pt (poly (poly, 1) , 2) , vy2- 
pt  (poly  (poly,  1),1)) 

PSET  (vx3+pt  {poly  (poly,  1)  ,  0)  ,  vy3- 
pt  (poly  (poly,  1),1)) 

IF  vrt (poly) >1  THEN 
FOR  n=2  TO  vrt  (poly) 

LINE (vxl-pt {poly (poly , n-1) , 2) , vyl- 
pt  (poly  (poly ,  n-1)  ,  0) )  -  (vxl-pt  (poly  (poly,  n)  ,  2)  ,  vyl- 
pt  (poly  {poly ,  n  >,  0 ) ) 

LINE  (vx2-pt (poly {poly, n-1) , 2) , vy2- 
pt  (poly  {poly,  n-1)  ,  1)  )-  (vx2-pt  (poly  {poly,  n)  ,2)  ,vy2- 
pt  (poly  {poly,  n)  ,  1)  ) 

LINE  (vx3+pt  (poly  (poly,  n-1)  ,0)  ,vy3- 
pt  (poly  (poly,  n-1)  ,  1) )  -  {vx3+pt  (poly  (poly,  n)  ,  0)  ,  vy3- 
pt  (poly  (poly,  n)  ,1>) 
NEXT 


SCR££nSHOOT£R 


IS  and  Slides 
from  your 
Amiga' 


Ciptiir»yourUyorri*p)ctur»«fromD«lux«P«lnt* ,  GnpHcriH'  «ndlnnae«' 
ofl  lntt*nl  print  INm  uilng  tha  Poltroid'  EOO  Cuntra  Includtd  with  the 
Scnenihoatsr'  or  UH  tfi»  Scr«rnhootBf  with  your  SSmin  Cunan  (not 
Included)  la  nulw  preunlilion  •lidet, 

$175. 

for  Screenshooter  Kit: 

Hood  for  1 3"  mohitor,  adaptor  lens,  Polaroid  600 

camera,  35  mm  camera  bracket. 

Add  SA.OO  for  shipping. 
VISA,  AMEX,  Mastofcard  Accepted 

'Tradema/ks  of  various  corporalions. 

Professional  Network  Services  Corporation 
315A  Chestnut  Street 
Needham,  MA02192 
^ (617)449-6460 


LINE {vxl-pt (poly {poly, n-1) , 2) , vyl- 
pt  (poly  (poly,  n-1)  ,  0) )  -  (vxl-pt  {poly  (poly,  1)  , 
pt  (poly  (poly,  1)  ,0)) 

LINE(vx2-pt  {poly  (poly,  n-1)  ,2)  ,vy2- 
pt  {poly  (poly,  n-1)  ,  1) )  -  {vx2-pt  (poly  (poly,  1)  , 
pt  (poly  (poly,  1),1)  ) 

LINE (vx3+pt (poly (poly, n-1) , 0) , vy3- 
pt  (poly  {poly,  n-1)  ,  1)  )  -  (vx3+pt  (poly  (poly,  1)  , 
pt (poly (poly, 1),1)) 
END  IF 
END  IF 
RETURN 

erase. poly: 

COLOR  0 

GOSUB  drw. poly 

COLOR  1 
RETURN 

high. poly: 

COLOR  3  '  ""    ' 

GOSUB  drw. poly 

COLOR  1 
RETURN 

unhlgh.poly: 

GOSUB  drw. poly 
RETURN 

high.clr : 

y2=INT(c/8) 
x2=c-y2*8 

LINE (192+x2*14, 143+y2*7) - 
(205+x2*14,149+y2*7)  ,3,b 
RETURN 


2)  ,vyl- 


2),vy2- 


0) ,vy3- 
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unhigh.clr: 

y2=INT{c/8) 

x2=c-y2*8 

LINE  (192+x2*14, 143+y2*7)  - 
(20S+x2*14,149+y2*7)  ,  0,b 
RETURN 

pt slider : 

IF    x<197    THEN 
p=pt 
60SUB   iinhlgh.pt 

pt=pt-l 

IF    pt<l    THEN    pt=l 

p=pt 

GOSUB  drw.pt num  ', 

GOSUB  high.pt 

GOSUB  nobut 
ELSEIF  x>2  98  THEN 

p=pt 

GOSDB  unhlgh.pt 

pt=pt+l 

IF  pt>maxpt  THEN  pt=maxpt 

p=pt 

GOSUB  drw ,  pt  tium 

GOSUB  high.pt 

GOSUB  nobut 
ELSEIF  x>199  AND  x<295  THEN 

p=pt 

GOSUB  unhigh.pt 

pt=x-199 

P=pt 

GOSUB  drw.ptnum 

GOSUB  hlgh.pt 

GOSUB  nobut 
END  IF 
RETURN 

polyslider : 

IF  X<197  THEN 
c=polyclr (poly) 
GOSUB  unhigh.clr 
GOSUB  unhigh.poly 
poly=poly-l 
IF  poly<l  THEN  poly=l 
GOSUB  drw . po lynum 
GOSUB  high. poly 
c=polyGlr (poly) 
GOSUB  high.olr 
GOSUB  nobut 
ELSEIF  x>2  98  THEN 
c=polyolr (poly) 
GOSUB  unhigh.clr 
GOSUB  unhigh.poly 
poly=poly+l 

IF  poly>maxpoly  THEN  poly=maxpoly 
GOSUB  drw. po lynum 
GOSUB  high. poly 
c=polyclr (poly) 
GOSUB  high.clr 
GOSUB  nobut 
ELSEIF  x>199  AMD  x<295  THEN 
c=polyclr (poly) 
GOSDB  unhigh.clr 
GOSOB  unhigh.poly 
poly=x-199 
GOSUB  drw. po lynum 
GOSUB  high. poly 
c=polyalr (poly) 
GOSUB  high.clr 


GOSUB  nobut 

END  IF 
RETURN 

edact  t 

IF  x>4  AND  x<122  AND  y>-150  AND  y<158  THEN  GOSUB 
f  rms  1  ide  r :  RE  TURN 

IF  x>40  AND  x<250  AND  y>136  AND  y<148  THEH  GOSUB 
drw. frm: RETURN 

IF  x>140  AND  X<250  AND  y>152  AND  y<164  THEN  GOSUB 
drw.allfrm:RETURN 

IF  x>260  AND  X<306  AND  y>13  6  AND  y<14  8  THEN  GOSUB 
playbut: RETURN 

IF  x>2e0  AND  x<30  6  AND  y>152  AND  y<164  THEN  GOSUB 
stopbut ;RETURN 

IF  x>2  63  AND  X<303  AND  y>17a  AND  y<183  THEN  GOSUB 
spdsllder : RETURN 

IF  y>168  AND  y<176  THEN 

IF  x>92  AND  x<140  THEN  GOSDB  mod. xrot  iRETDRN 
IF  X>147  AND  x<196  THEN  GOSUB  mod  .yrot :  RETURN 
IF  x>203  AND  x<252  THEN  GOSDB  mod . zrot : RETURN 
END  IF 
IF  y>177  AND  y<185  THEN 

IF  x>92  AND  x<140  THEN  GOSUB  mod .  xtran :  RETURN 
IF  x>147  AND  x<196  THEN  GOSUB  mod .ytran :RETURN 
IF  x>203  AND  x<252  THEN  GOSUB  mod , 2tr«n :RETURN 
END  IF 
RETURN 

frmslider ; 

IF  x<12  THEN 

fnn=frm-l 

IF  fmi<l  THEN  frm=l 

GOSUB  drw.frmnum 

GOSUB  drw. update 

GOSUB  drw. factors 

GOSUB  putfrm 

GOSUB  nobut 
ELSEIF  x>114  THEN 

frnp«frm+l 

IF  frm>12  THEN  frm=12 

GOSUB  drw.frmnum 

GOSUB  drw. update 

GOSOB  drw. factors 

GOSDB  putfrm 

GOSDB  nobut 
ELSEIF  x>16  AND  x<110  THEN 

frm=INT((x-16)/8)+l 

GOSUB  drw.frmnum 

GOSUB  drw. update 

LINE  (0,0) -(311,  131)  ,0,bf 

GOSUB  drw. factors 

GOSUB  putfrm 

GOSUB  nobut 
END  IF 
RETURN 

drw. frm: 

GOSUB  high, redraw 

GOSUB  drw. frame 

GOSUB  get frm 

frmchg(frm)=0 

GOSUB  drw. update 

GOSUB  unhlgh. redraw 

GOSUB  nobut 
RETURN 

drw.allfrm: 

GOSUB  high . redraw2 
t  f rm=f rm 
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FOR  frm=l  TO  12 

GOSUB  drw . f rmnum 

G05  UB  drw .  f  a  ct  or • 

GOSUB  dew. frame 

GOSUB  getfrm 

frTnchg(fno)  =0 

GOS  UB  drw . update 
NEXT 

f  rm=t  f rm 

GOSUB    drw.  f  ramum 
GOSUB   drw. factors 
GOSUB    putfrm 
GOSUB    urihigh.redraw2 
GOSUB    nobut 
RETURN 

playbut : 

GOSUB   high. play 
GOSUB    unhigh.stop 
GOSUB    freeze. menu 
frnd.nc=l 
clickBtop=0 
WHILE    HOT(clic)cstop) 
frmsfrm+froiinc 
IF    fnii>12    THEN 
IF    actrev    THEN 
fnn=ll 
frminc=(-l) 
ELSEIF    actrpt    THEN 

frjn=l 
ELSE 
fnn=l 

clickstop=(-l) 
END    IF 
END    IF 

IF  frm<l  THEN 
IF  actrpt  THEN 
fnn=2 
frminc=l 
ELSE 
fnn=l 

cllckstops (-1) 
END  IF 
END  IF 

GOSUB  putfrm 
GOSUB  drw . f rmnum 
FOR  n=0  TO  39-spd 
b=HODSE(0) 
x=MOUSE(l) 
y=M0DSE(2) 
IF  boo  THEN 

IF  x>2  60  AND  x<30  6  AND  y>152  AND  y<164 
THEN  clio)cBtop=(-l) 
n=39-spd 
END  IF 

IF  x>263  AND  x<303  AND  y>178  AND  y<183 
XBEN 

spd=x-263 
GOSUB  drw.Epdnum 
END  IF 
END  IF 
NEXT 
VEND 

GOSUB  drw. factor* 
GOSUB  drw, update 
GOSUB  unhlgh.play 
GOSUB  high. stop 
GOSUB  unfreeze. menu 
GOSUB  nobut 
RETURN 


AMIGA  CUSTOM  PRINTER 

DRIVER:$35+S/H 

Create  your  own  printer  driver  for 

virtually  any  printer. 

•  MENU  DRIVEN  •  WORKS  THRU  PREFERENCES 

We  are  world  famous  for  our  selection 

of  Amiga  software! 

Call  our  Amiga  BBS  at  night  or  call 
during  store  hours  to  order! 


We  specialize  in 

COMMODORE  AND  AMIGA  COMPUTERS 
SOFTWARE  SUPERMARKET 
31621/2  Delaware  Ave. 
Kenmore.  N.Y.  1 421  7 

For  Dealers  only: 
Please  calHor  pricing 

on  our  printer  driver. 


(716)873-5321 

4  THE  PRINTER  STOHEtouse 
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etopbut: 

RETURN 

spdsllder : 

Bpd=x-263 

GOSUB  drw.spdnum 
RETURN 

mod.xrot ; 

sS=STR$(xrot (frm)) 

xt=108:yt=175 

maxchar=4 

numonly=l 

GOSUB  getBtrlng2 

xrot(fnn)=VAl(B$> 

xrot  (fnii)=xrot  (frm)  MOD  3  60 

IF  xrot<frm)<0  THEN  xrot (f rm) =xrot (f rm) +3€0 

GOSUB  drw. factors 

frmchg{frm)  =1 

GOSUB  drw. update 

GOSUB  nobut 
RETURN 

mod . yrot : 

s$=STR$  (yrot  (f  nn) ) 

xt=164:yt=17S 

maxchar=4 

numonly=l 

GOSOB  getstrlng2  ;^ 

yrot  ( frm)  =VAL(b5) 

yrot (frm) =yrot (frm)  MOD  360 

IF  yr o  t ( frm) <  0  THEN  yr ot ( f rm) =yrot ( frm) +360 

GOSUB  drw. factors 

f  rmchg  ( frm)  =1 
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COSOB  drw.updat« 
GOSUB  nobut 
RETDRK 

mod.z^TOt: 

■S=STR$ (zrot (frm) ) 

xt=220:yt=175 

oiaxchar=4 

numonly=l 

GOSUB  getBtring2 

zrot  (frm)  =V3VL(eS) 

zrot  (frm)  =z rot  (frm)  MOD  3  60 

IF  zrot (frm) <0  THEN  zrot (frm) =srot (frro) +360 

GOSDB  drw. factors 

f  nncbg  (f  rm)  =1 

GOSUB  drv. update 

GOSUB  nobut 
RETURH 

aod . xtran : 

s$=STR$ (xtran (f rm) ) 
xt=108:yt=184 
maxchar=4 
numonly=l 
GOSUB    getstringS 
xt  ran  ( f  rm)  =VAli  ( s  5 ) 

rr    xtran ( frm) <- 90    THEN    xtran (frm) = (-90) 
IF    xtran(fnn)>90    THEN    xtran(fnn)  =90 
GOSUB   drv. factors 
f rmchg (f rm) =1 
GOSUB   drw.updat* 
GOSOB   nobut 
RETURN 

mod . ytran :  _ 

bS=STR$ (ytran (frm) ) 
xt=164:yt=184 
maxchar=3 

nuinonly=l 
GOSUB   get«tring2 
ytran  (frm)  ■=VAL(bS) 

IF    ytran (frm) <- 8    THEN    ytran (frm) = (-8) 
IF   ytran  (fxin)>8    THEN   ytran  (frm)  =8 
GOSUB  drw.faetoriB 
f rmchg (frm) =1 
GOSUB   drw.updat* 
GOSOB   nobut 
RETURN 

mod.ztran: 

s$=STR$ (ztran (f rm) ) 

xt=220:yt»184 

maxcbar=4 

nuinonly=l 

GOSUB    getetring2  ■  . 

ztran  (frm)  =VJiI.  (b$) 

IF  ztran  (fnn)<0  THEN  ztran  (frm)  =0 

IF  ztran (frm) >999  THEN  ztran (frm) =999 

GOSUB  drw, factors 

f rmchg ( frm) =1 

GOSUB  drw. update 

GOSUB  nobut 
RETURN 

drw ,  frame :  ..   -      . 

GOSUB  unit. matrix 

IF  xrot(frm)>0  THEN  GOSDB  apply. xrot 
IF  yrot(frm)>0  THEN  GOSOB  apply. yrot 
IF  zrot (frm) >0  THEN  GOSUB  apply. zrot 
IF  Ztran(frm)>0  THEN  GOSUB  apply. ztran 


GOSOB  transform. pts 
GOSUB  convart2scr 
GOSUB  sort. poly 
LINE  (0,0)-  (311,131),0,bf 
GOSUB  drw. object 
RETURN 

matprep:     'bit  of  matrix  preparation 
FOR  row=0  TO  3 
FOR  col=0  TO  3 

trl  (row,  col)  =tran  (row,  col) 
tr2 (row, col) =0 
NEXT 
NEXT  ' 

RETURN 

unit. matrix:     'create  a  unit  matrix 
FOR  row=0  TO  3 
FOR  CO 1=0  TO  3 
tran (row, col) =0 

IF  row=col  THEN  tran (row, col) =1 
NEXT 
NEXT 
RETURN 

matniult:     'aiultlply  transformation  matriciae 
FOR  row=0  TO  3 
FOR  CO  1=0  TO  3 
t=0 
FOR  el=0  TO  3 

t=t+trl(row,ol)  *tr2  (el,  col) 
NEXT 

tran (row, col) =t 
NEXT 
NEXT 

RETxnm 

apply. xrot:      'rotate  object  about  x  axis 

GOSUB  matprep 

rad=xrot ( f rm) *3 . 1416/180 

tr2{0,a)=l:tr2(3,3)=l 

tr2  (1, 1)=C0S  (rad)  :tr2  (1,  2>=SIW  (rad)  *  (-1) 

tr2  (2, 1)=SIN  (rad)  :tr2  (2,  2>=C0S  (rad) 

GOSUB  matrault 
RETURN 

apply. yrot:      'rotate  object  about  y  axis 

GOSOB  matprep 

rad=yrot (frm) *3 .1416/130 

tr2(l,l)=l:tr2(3,3)=l 

tr2  (0,  0)  =COS(rad)  :tr2  (0,  2)=SIH  (rad) 

tr2  (2.0)  :i=SIN(rad)  *  (-1)  rtrZ  (2,  2)  =COS  (rad) 

GOSUB  matmult 
RETURN 

apply. zrot:     'rotate  object  about  z  axis 

GOSUB  matprep 

rad=zrot (frm) *3 . 1416/180 

tr2(2,2)=l:tr2(3,3)=l 

tr2(0,0)=COS(rad)  :tr2(0,  1)=SIN  (rad)  *  (-1) 

tr2  (1,  0)  =SIN  (rad)  :tr2  (1, 1)=C0S  (rad) 

GOSUB  matmult 
RETURN 

apply. ztran:      'translate  object  along  z  axis 

GOSUB  matprep 

tr2(0,0)=l:tr2(l,l)=l 

tr2(2,2)=l:tr2(3,3)=l 

tr2 (3, 2) =ztran(frm) 

GOSOB  matmult 
RETURN 
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t  rans  f  o  era .  pt  s : 
COLOR  1 , 0 
FOR  p=l  TO  95 
LOCATE  1,  S 

PRINT'*Calcul«tlng  Point"  ;p 

IF  pt(p,0)<>0  OR  pt(p,l><>0  OR  pt(p,2><>0  THEN 
FOR  CO 1=0  TO  3 
t=0 
FOR  el=0  10    3 

t=t+pt  (p,  el)  *tran  (el,  col) 
NEXT 

tpt{p,col)=t 
NEXT 
END  IF 
KEXT 
RETUEM 

convert2acr:     'convert  points  to  acreen 

coordinates 

FOR  p=l  TO  95 

r=zeye/  (tpt  (p,  2)  4zey^e) 
tpt  (p,  0)=INT(tpt  (p,  O)*r)+hoff 
tpt  (p,  1)  =  ( INT  (tpt  (p,  1)  *r) )  *  (-1)  +vof  f 
NEXT 
RETURN 

reset .polyorder : 

FOR  n=l  TO  maxpoly 
polyord (n, 0)=0 
polyord(n,  1)=0 
NEXT 
RETURN 

sort .poly: 

GOSUB  reset .polyorder 

' find  average  of  all  polygons '  z  coord 
FOR  n=l  TO  maxpoly 
LOCATE  1, 17 
PRINT "Polygon"n 
IF  vrt(n)>0  THEN 
t=0 
FOR  n2=l  TO  vrt (n) 

t=t+tpt  (poly{n,n2)  ,2) 
NEXT 

polyord(n,0)=INT(t/vrt  (n) ) 
END  IF 
NEXT 

■  sort  polygons  by  average  z    coord 
FOR  n=l  TO  maxpoly 
LOCATE  1,24 
PRINT  n; "again." 
IF  vrt  (n)  >0  THEN 
t=(-100) 
p=(-l) 

FOR  n2=l  TO  maxpoly 
IF  vrt(n2)>0  THEN 

IF  polyord  (n2,  0)  >t  THEN 
t=polyord(n2,0) :p=n2 
END  IF 
NEXT 

polyord (n, 1) =p 
polyord  (p,  0)  =  (-100) 
END  IF 
NEXT 

COLOR  1,2 
RETURN 

drw. object ; 

FOR   n=l    TO    maxpoly 


Haven't  You  Set  Your  AMIGA'S 

Time  And  Date  Once  Too  Often? 

Introducing 

A'TIME 

A  clock/calendar  card  wiilt  battery  back-up, 

so  you  will  never  have  to  set  the  lime  and  date 

in  your  AMIGA,  EVER  AGAIN! 

Plug.';  inio  ihc  parallel  port. 
'  A  complclcly  transparent  printer  port  is  provided,  with  total 

compalibilily  to  all  I/O  operations. 
>  Daltcry  back-up  keeps  ihc  clock/calendar  date  viilid  on  power  down. 
'  Custom  ca.sc  with  a  footprint  of  only  2'U"  x  ''Ik'  x  Ti'W 

(W  X  D  X  H)  in  standard  AAfICA  color. 
'  Leap  year  capability. 
■  A  -  T  1  M  E  package  eonlaias: 

1-A  -TIME  clock/calendar  n«xJulc 
1-3.5'  DS  Uliliiics  Disk 
Operating  in,sIruClionS 


PRICE  '49" 


AVAILABLE:  NOW 


Mail  clicck  to; 


AKRON  SYSTEMS  DEVEIOPMENT  (ASD) 

p.  0.  BOX  6408  (409)  833-2686 

BEAUMONT,  TEXAS  77705 

include  '3.50  for  shipping  and  handling 

For  MCA'ISA  orders  call  14091  B33-26B6 

AMIGA  is  a  trademark  of  Commodore  -  Anniga  inc. 


IF  vrt(n)>2  THEN 

FOR  n2=l  TO  vrt (polyord (n,  1)  ) 

AREA  (tpt  (poly  (polyord  (n,  1)  ,n2)  ,0)-(-xtran 
(frm)  ,  tpt  (poly  (polyord  (n,  1)  ,  n2)  ,  1)  +ytran  (frm) ) 
NEXT 

COLOR  polyclr (polyord (n,  1) ) 
AREAFILL 
END  IF 
NEXT 

COLOR  1,2 
RETURN 

getfrm; 

GET(hoff-64-l-xtran(frm)  ,  vof  f-58-l-ytran  (frm) )  - 
(hoff-(-63-l-xtran(frm>  ,  vof  f-t-57-l-ytran  (frm)  )  ,  fratnai  (  (fr 
-1) *£rmslze) 
RETURN 

put frm: 

PUT(hoff-64■^xtran(frm)  ,  vof  f- 
58+ytran(frra) ) , frames ( (frm-l) *£rmeiz«) ,PSET 
RETURM 

getstring: 

'enter  here  if  no  default  string 

getstring2: 

'enter  here  if  have  a  default  string 
GOSUB  freeze.meny 
GOSUB  nokey 
numchar=LEN (sS) 
CALL  moves (rpS,xt,yt) 
PRINT  sS; 
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get«tring3 : 

LINE (xt+numchar*S+l,  yt-7> - 

(xt+numchar*8+4,yt+2)  ,3,bf 
2$=INPnT$(l) 

LINE(xt+numchar*8+l,  yt-7)-     ' 
(xt+nuinchar*8+4,yt+2)  ,2,bf 

IF    z$=CHR$(a)     OR    z$=CHR.$(31)     OR    z$=CHR$  (127) 
THEN 

IF    niiinchar>0    THEN 

PRINT    CHRS(8);"     ";CHR$(8); 
nuinchar=numch  a  r- 1 
B$=1,EFTS  (b$,  numchar) 
END    IF 
END    IF 

IF   ASC(zS)>31   AND   numchar<iiiaxohar   AND   nueionly=0 
THEN 

B$=B$+2$ 

PRINT   x$; 
iiuinchar=nuiiichar+l 
END    IF 

IF   A3C(2$}>31   AND    numchar<iitaxchar    THEN 
IF   nmiionly=l    THEN 

IF<z$>="0"    AND    2$<="9")0R    z5="-"    TEIEN 
s$=s$+z5 
PRINT    zS; 
numGhar=numchar+l 
END    IF 
END    IF 
END    ZF 
IF    z$<>CHR$ (13)     THEN   getstring3 
iiumonly=0 

GOSUB   unfreeze. menu 
RETURN 

click . continue : 

LOCATE    23, 4 

PRINT" (Prasa  mouse  button  to  continue)"; 

GOSUB  nobut 

b=MODSE(0) 

WHILE  b=0 
b=MODSE(0) 

WEND  :  ' 

RETURN 

nobut : 

b=MO0SE{O) 

WHILE  boo 
b=HOUSE(0) 

WEND 
BETDBH  ■■   ' 

nokoy ; 

zS=IKKEYS 
WHILE  Z$<>"'' 

z$=INKEY$ 
WEND 
RETURN 

init: 

DEFINT  a-p,u-z 

DECLARE  FONCTIOM  setdrrod  LIBRARY 

DECLARE  FUNCTION  move  LIBRARY 

LIBRARY  "graphlcB . library" 

SCREEN  1,320,200,5,1 

WINDOW  2,  "ROT",  (0,  0)  -  (311,  186)  ,  0,1 

WINDOW  ODTPDT  2 

rp£=WIKD0W{8)  'pointer  to  raster  port 

PALETTE  0,0,0,0 

PALETTE  2,0,  .5,0 


PALETTE  31,0, .25,0 
PALETTE  30,  .7,  .7,0 
LOCATE  3 , 1 
GOSUB  intro 

DIM  pt(95,3)  ,poly(95,6),polyclr(9S)  ,vrt(95) 
DIM  xrot  (12)  ,yrot(12)  ,2rot  (12) 
DIM  xtran(12)  ,ytran(12)  ,  ztran(12)  ,  fmchg(12) 
DIM 
tran(3,3)  ,trl(3,3)  ,  tr2(3,3)  ,tpt  (95,3)  ,polyotd(95,  1) 

DIM  framafi  (27876) 
pt=l:poly=l 
ob3scr=-l : actscr=0 
vxl=43 : vx2=43 : vx3=13 6 

vyl=43:vy2=135:vy3=13S 

iiiaxpt=95  :maxpoly=95 

fca>=l:8pd=20 

frmBize=2323 

hof f =156 : vof f =66 : zeye=440 

actirpt=0 :  actrev=0 

FOR   n=l    TO   maxpt 

pt  (n,3)=l 
NEXT 

GOSUB    init. menu 
COLOR    1, 0 

GOSUB    allele,  continue 
COLOR    1,2 
GOSUB   drw.objscr 
RETURN 


init .menu: 

MENU 

1,0,1,' 

ROT" 

MENU 

1,1,1,' 

Files  " 

MENU 

1,2,0,' 

MENU 

1,3,1,' 

Quit 

MENU 

2,0,1,' 

Object" 

MENU 

2,1,2,' 

Object  Editor  ' 

MEMO 

2,2,1,' 

Load  Object 

MENU 

2,3,1,- 

Save  Object 

MENU 

2,4,1,' 

New  Object 

MENU 

3,0,1,' 

Action" 

MENU 

3,1,X,' 

Action  Editor 

MENU 

3,2,0,' 

Load  Action 

MENU 

3,3,0,' 

Save  Action 

MENU 

3,4,0,' 

New  Action 

MENU 

3,5,0,' 

MENU 

3,  6,0,  ■ 

Repeat  at  end 

MENU 

3,7,0,  ' 

Rcveese  at  end 

MENU 

3,8,0,  ' 

Calc  between. . . 

MENU 

4,0,0,  ■ 

" 

MEND 

4,1,0,  ■ 

" 

RETURN 

freeze . 

menu: 

MEND 

1,0,0 

MEND 

2,0,0 

MENU 

3,0,0 

RETURN 

unfreeze .menu: 

MEND 

1,0,1 

MENU 

2,0,1 

MEND 

3,0,1 

RETURN 

cleanup 

: 

WINDOW  CLOSE  2 

SCREEN  CLOSE  1 

LIBRARY  CLOSE 

PALETTE  0,0, 

.25, .55 
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ROT 


PALETTE  2,0,0,0 
MENU  RES2T 
RETURN 

cUcw.objscr: 

LINE  (0,0) -{320,  200)  ,2,bf 
LINE  (2,  2) -(83,  83)  ,  0  ,  bf 
LINE  (2,  9S)-(83,176)  ,  0,bf 
LINE  (96,  95) -(177,  176)  ,0,bf 
LINE  (186,  2) -{310,  53)  ,l,b 
LINE  (136,  60) -{310, 176)  ,l,b 
LINE  (191,  142)  -  (304,  171)  ,  0,bf 
FOR  y=0  TO  3 

FOR  X=0    TO  7 

LINE {193+x*14, 144+y*7) - 
(204+x*14 , 143+y*7) , y*8+x, bf 

NEXT 
NEXT 

x=189:y=126:GOSDB  drw. button 
y=110:GOSUB  drw. button 
y=94:GOSUB  drw, button 
y=36:GOSDB  drw. butt on 
y=24:GOSCrB  drw. scroll 
y=82:GOSaB  drw. scroll 
CALL  movefi (tpi , 228 , 12) : PRINT "POINT" 
CALL  movoi  (rpS,236,21) :PRINT"#" 
CALL  move* (rps,208,  45)  :PRINT"Eero  Point" 
CALL  movet (rpt,220, 70) :PR1NT"POLYGON" 
CALL  movot  (rpt,  236,  7  9)  :  PRINT"  #" 
CALL  movet (rps, 200, 103) :PRINT"Add  above  Pt" 
CALL  move* (rpt,  200, 119)  :PRINT"Undo  last  Pt" 
CALL  moves (rpt,  192, 135)  :PRINT"Delete  Polygon" 
CALL  movet (rpt, 10, 92) :PRINT"Z   TOP" 
CALL  movat (rpt,  10,185)  :PRINT"Z   SIDE"; 
CALL  moves (rpt, 107, 185) :PRINT"FRONT   X"; 
CALL  moves  (rpt,  86,16)  :PRINT"X" 
CALL  movet  (rpt,  86,  109)  :PRINT"Y" 
x=2 :y=e9:G0SUB  drw.leftarrow 
y=182:GOSUB  drw.leftarrow 
x=89:y=2 :GOSUB  drw.uparrow 
y=95:GOSUB  drw.uparrow 
x=177:y=182:GOSDB  dxw.rightarrow 
GOSUB  dxw.ptnum 
GOSUB  drw.polynum 
GOSUB  drw. views 
G=polyclr (poly) 
GOSUB  high.clr 
GOSUB  nobut 
RETURN 

drw. but ton: 

LINE  {X,  y)  -  (x+116,  y+12)  ,  1,  b 

LINE{x+2,y+13)-(x+117,y+13)  ,0 
LINE  -(x+117,y+l)  ,0 
RETURM 

drw. scroll: 

LINE(x,y)- (x+116, y+8)  ,l,b 

LINE(x+8,y)-(x+109,y+a)  ,l,b 

LINE(x+2,y+9)-(x+117,y+9)  ,0 

LINE  -{x+117,y+l)  ,0 

COLOR  0 

AREA(x+3,y+4)  :AREA(x+S,y+2)  ;  AREA(x+5,  y+6) 

AREAFILL 

AREA(x+112,y+2)  : AREA (x+112, y+6)  : AREA(x+114,y+4) 

AREAFILL 

COLOR    1,2 
RETURN 


Mouse  Driven 


Classic  games  software  you  can  drive  with 

your  mouse!  But.  you  don't  need  a  license 

-just  an  AMIGA  and: 

'*" Games  Gallery  I,  II,  and  III. 

Each  of  these  packages  contain  exciting: 

Space,  Gambling,  Sports  Games,  and 

Mind  Teasers. 

Each  provides  a  standard  series  of  features 

and  options  for: 

•Speech  •Graphics  •Menus 

•Color  •Help  •Voice  and  •Mouse  Control! 

Kickstart  l.l  &  512K  memory  required.  $29.95 

+  S3.00  shipping  &  handling. 
(713} 488-2144  k^ tf  ■  meridiah- 

■■m  I  SOFTWARE 

Telephone  orders  ^M  w  I  INC. 

weicome  P.O.  Box  B90408 

Vise  Mastercard  Amex  Housfon,  TX  77289-0'a06 

AMIGA  Is  a  iradomafk  ol  Commodore-Amioa,  inc 


drw , le  f tarrow : 

AREA(x,  y)  :  AREA(x+3,  y-3)  :AREA(x+3,  y+3)  :AREAFILL 

LINE(x,  y)-(x+6,y) 
RETURM 

drw . rightarrow : 

AREA{x,y) : AREA (x-3, y-3) : AREA {x-3, y+3) :AREAFILL 
LINE(x,y)-{x-S,y) 

RETURN 

drw.uparrow: 

AREA(x,  y)  :  AREA  (x-3,  y+3  )  :  AREA  (x+3,  y+3)  :AREAFILL 

LINE  {x,y)-(x,  y+6) 
REIORM 

drw . ptnum : 

LINE  (199,  26) -{296,  30)  ,  0,bf 

LINE(198+pt,2  6)-(201+pt,30)  ,3,bf 

CALL  moves (rpt, 244,21) 

PRINT  RIGHT?  {"00"+STR$  (pt)  ,2) 
RETOBM 

drw.polynum: 

LINE  (199,  84) -{296,  88)  ,0,bf 

LINE(198+poly,  84)  -  (201+poly,  88)  ,  3,bf 

CALL  moves (tps, 244, 79) 

PRINT  RIGHTS ("00"+STR$ (poly)  ,2) 
RETURM 

drw. actscr : 

LINE  (0,  0)  -  (311,  131)  ,  0,  bf 
LINE  (0,  132)  -  (311,  18  6)  ,  2,bf 
x=140:y=136:GOSUB  drw.button2 
y=lS2:G0SUB  drw.button2 
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ROT  = 

x=2€0:y=13  6:GOSUB  drw.button3 

y=152:G0SUB  drw. buttons 

LINE  (260,  178) -(306,  183)  ,l,b 

LINE  (262,  184) -(307,  184)  ,0 

LINE  -(307,  179),  0 

LINE(4,150)-(122,158) ,l,b 

LINE  (12,  ISO) -(114,  158)  ,l,b 

LINE(6, 159)  -  (123, 159)  ,  0 

LIKE  -(123, 151), 0 

COLOR  0 

AREA(7,154)  :AREA{9,152)  :AREA(9,156)  lAREAFILL 

AREa{117,  152)  :AREA(119,  154)  :AREA(117,  156) 

ARE AF ILL 

COLOR  1,2 

CALL  moves (rpt, 28, 145) :PRIKT"FRAME  #" 

CALL  movei  (rp£, 4,175) :PRINT"Rotations:  X= 

Z~" 
CALL  movet (rpi, 4,184) :PRINT"Translate:  X= 

Z="; 
GOSUB  unhigh . redraw 
GOSUB  unhigh. rodraw2 
GOSUB  unhigh. play 
GOSUB  high. stop 

CALL  moves  (rp6,  264  ,  175)  :PRINT"SpeGd" 
GOSUB  drw.frtnnum 
GOSUB  drw.spdnum 
GOSUB  drw. update 
GOSUB  drw. factors 
GOSUB  putfrm 
RETURN 

dnf .  frmnuRi : 

LINE(15,152)-(lll,156),0,bf 

LINE (7+f rra*8 , 152 ) - ( 15+f rm*8 , 156) , 3 , bf 

CALL    moves (rp£, 84, 145) 

PRINT    RIGKT?("00"+STR$(fnn)  ,2) 
RETURN 

drw.epdnum: 

LINE  (262, 180) -(304, 181)  ,0,b 

LINE  (261+Bpd,  180)- (265+spd,  181)  ,3,b 

RETURN 

drw. update: 

LIME (115, 138) -(131, 146) ,2,bf 
IF    f  nnchg  ( f  nn)  <>0    THEN 

LINE  (115, 142) -(131, 142)  ,3 

LINE    -(127,138)  ,3 

LINE  (131,  142) -(127,  146)  ,3 
END    IF 
RETURN 


Y= 


drw. factors : 

CALL    moves (rpS, 108, 175) 
PRINT    LEFT$(STR$(xxot  (frw)  )+'■ 
CALL    moves (rpfi, 164, 175) 
PRINT    LEFT$ (STRS (yrot (f rm) ) +" 
CALL    moves (rpfi, 220, 175) 
PRINT    LEFTS  (STR$(zrot(fnn)  )+" 
CALL    moves (rpS, 108, 184) 
PRINT    LEFT$  (STRS(xtran(frm))+" 
CALL    moves (rpS, 164, 184) 
PRINT    LEFTS  (SIRS  {ytran(frm)  )+■' 
CALL  moves  (rps,  220, 184] 
PRINT    LEFTS  (STRS  (ztran  (f  rm)  )  +" 

RETURN 

unhigh . redraw : 

LIME  (141, 137) -(249,  147)  ,  2 ,  bf 


■■,4) 
".4> 
",4) 

■'-4), 


CALL  moves (rpS, 148,145) 

PRINT"Redraw  Frame" 
RETURN 

high. redraw: 

LINE  (141,  137) -(24  9,  147)  ,3,bf 

COLOR  1,3 

CALL  moves (rpt, 148, 145) 

PRINT"Redraw  Frame" 

COLOR  1,2 
RETURN 

unhigh . redraw2 : 

LINE(141,  153)  -  (249,  163)  ,  2,bf 
CALL  moves (rpS, 156, 161) 

PRINT"Radraw  All" 
RETURN 

high . redraws : 

LINE  (141, 153) -(24  9, 163)  ,3,bf 

COLOR  1,3 

CALL  moves (rpS, 15  6, 161) 

PRINT"Redraw  All" 

COLOR  1,2 
RETURN 

unhigh. play ; 

LINE  (261,  137)  -  (305,  147)  ,  2,bf 
CALL  moves (rpS, 268, 145) 

PRINX"Play" 
RETURN 

high. play : 

LINE(261,137)-(305,147)  ,3,bf 

COLOR  1,3 

CALL  moves (rpS, 268, 145) 

PRlKT"Play" 
COLOR  1,2 
RETURN 

unhigh. stop; 

LINE  (261,  153) -(305,  163)  ,2,bf 
CALL  moves (rpS, 268, 161) 
PRINT"Stop" 

RETURN 

high . stop : 

LINE  (261, 153) -(305,  163)  ,3,bf 

COLOR  1,3 

CALL  moves (rpS, 268, 161) 

PRINT"Stop" 
COLOR  1, 2 
RETURN 

drw, butt on2: 

LINE(x,y)-  (x+110,y+12)  ,l,b 
LINE(x+2,y+13)-(x+lll,yH3)  ,0 
LINE  -(x+lll,y+l),0 

RETURN 

drw. buttons : 

LIKE  (X,  y)  -  (x+46,  y+12)  ,  1,  b 
LINE(x+2,y+13)-(x+47,y+13)  ,0 
LINE  -(x+47,y+l)  ,0 

RETURN 


•AC- 
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By  Popular 
Demand! 


Ok,  Ok!  We  give  in.  Our  readers  have  requested  a  subscription  form  and  we  are  giving 
in.  The  small  coupon  in  the  corner  Is  a  direct  result  of  the  dozens  of  calls  and  letters  from 
prospective  subscribers.  In  all  honesty,  we  have  never  put  a  subscription  form  in  the 
magazine,  because  we  wanted  your  thoughts  and  ideas  by  letter. 

However,  if  there  are  some  Amiga  users  out  there  who  do  not  want  to  drop  us  a  line  and 
tell  us  of  the  Amazing  things  they  are  doing,  well,  just  fill  out  the  card  below  with  check  or 
money  order  for  $24.00  U.S.,  $30.00  Canada  and  Mexico,  or  $35.00  overseas  (first  class 
and  airmail  rates  are  available  upon  request)  and  send  to: 

PiM  Publications  Inc. 

P.O.  Box  869 

Fall  River,  MA  02722 

We  will  start  your  subscription  request  with  our  next  available  issue. 

If  you  need  any  of  our  first  six  Back  Issues,  they  are  available  at  $4.00  each  and  can  be 
ordered  at  the  same  time  as  your  subscription. 


While  sending  the  coupon, 
please  don't  forget  our  long 
list  of  Public  Domain  Soft- 
ware listed  in  the  back  of  this 
issue! 

So,  there  you  have  a  quick, 
easy  way  to  fully  support 
your  Amiga.  But,  if  you  are 
not  in  such  a  hurry,  we 
would  still  like  to  see  your 
thoughts,  dreams,  hopes, 
and  ideas  in  your  letters. 

Thank  you. 


Amazing  Computing 


Yes!  I  am  taking  the  easy  way,  please  start  my  subscription  with  the  next 
available  issue!     I  have  enclosed  $24.00  for  12  issues  U.S.{$30.00 
Canada  and  Mexico,  $35.00  overseas). 


name 


street 


city 


I  am  mailing  this  to; 

PiM  Publications,  Inc. 

P.O.  Box  869 

Fall  River,  MA  02722 


state      zip  code 


Thanks  for  your  order. 
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Computer  West 


4130N.  75th  Ave.  #105 
Phoenix,  AZ  85033 


(602)  849-4795 

DEALER  INQUIRES  WELCOME 


;  ..^w^:;:i»;;.y.:.:^;x 


?^. 


Solid  Oak  Swivel 
Custom  Disk  Cabinet 

by  Custom  Byte 


Gallery  of  Images    For  DELUXE  PRINT® 


Holds  84 
3.5"  Micro 
Floppies 

Put  all  your  disks  in  one 

place  -  at  your  fingertips 


$49.95 


MEMORY 

EXPANSION 
BOARD 

A  BIG 

2nib. 

Speed 
Features:     Auto  configuring 

Mounts  on  expansion  port 
Zero  wait  states 

A  must  for  business,  graphics,  <t  T  Q  C     A  A 
database,  and  cad  progra.ms.     ^  /  J7  ^  *\j\) 


^^^^^     Featuring: 
pH     States,  Social  Activities, 
'  ''        Southwestern  Art,  Mix 
and  Match 


W^U\,T^^  ™iy  $19.95 


■:>'----"«<!'^>»«!^-v=*'-W*=?^--:- 


Computer  Art  Galler>'  of  Animations 
by  Ken  Costello 


■>:■' 


Corvette  example;  wheels  spin,  telephone  poles 
flash  by  and  road  moves.  23  animations. 
Explore  the  animations  of  <t  1  O     Q  C 

your  computer.  4^  JL  J'  •  J7  O 


n  .Aji  Disk  Deluxe  Prim        19.95 
n  An  Disk  Deluxe  Paint        19.95 


D  Memory  Board       5795.00 
DOak  disk  holder     S69.95 


Q  check/money  order     D   Credit  Card  No._ 

Exp.  date 


Sign. 


Name 

Address^ 
City 


State 


_Zip_ 


n  Visa   D  M/C  D  Amer.  Exp.  Computer  West 

53^00  sh,pp.ng  and  handlmg  ^^^  ^^3^  ^^^  ^^^^ 

AZ  residents  add  6j%  sales  tax 

(602)   S49-4795  Phoenix,  AZ  85033 


Buiiacu  MacruBEL    E>exluic  Priflt  u  ■  rtgjitcred 
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Forth! 


By  Jon  Bryan 


Last  month  I  began  the  planning  stages  of  an  application 
which  would  simulate  a  bouncing  ball  in  three  dimensions. 
Some  of  the  necessary  equations  were  presented,  along 
with  a  discussion  of  the  many  choices  and  compromises 
which  must  be  made  in  writing  such  an  application.  I  also 
made  the  decision  to  use  "Multi-Forth"  from  Creative 
Solutions,  inc.  as  the  language  implementation,  largely 
because  it  was  (and  still  is  at  the  time  this  is  being  written)  the 
most  powerful  version  yet  to  be  released. 

This  month  I'm  finally  including  some  actual  code  which  you 
can  run  if  you  have  Multi-Forth.  It's  an  implemenlation  of  the 
Bresenham/Michener  circle  algorithm  as  published  in 
"Fundamentals  of  Interactive  Computer  Graphics"  by  J.D. 
Foley  and  A.  Van  Dam.  It  may  not  seem  at  first  glance  to  have 
much  to  do  with  bouncing  balls,  but  I  ask  you  to  bear  with  me. 
I  think  it  will  prove  to  be  useful.  Let  me  explain  my  reason  for 
implementing  the  algorithm,  i  would  like  to  draw  a  series  of 
shaded  spheres  1o  give  the  perspective  view  of  the  ball  as  it 
travels  from  the  front  to  the  back  of  the  "room."  In  order  to 
derive  the  x  and  y  coordinates  for  each  pixel  which 
constitutes  a  point  on  the  surface  of  the  sphere,  the  radius  of 
the  sphere  must  be  calculated  for  each  horizontal  "slice" 
(raster  scan  line)  through  the  sphere.  Bresenham's  algorithm 
provides  a  convenient  method  for  calculating  that  radius 
quickly  and  efficiently.  For  each  slice,  the  radius  provides  a 
starling  and  an  ending  pixel  relative  to  the  central  axis  of  the 
sphere.  The  x  and  y  pixel  coordinates  and  the  radius  of  the 
sphere  may  then  be  used  to  calculate  the  amount  o( 
illumination  reflected  to  your  eye  from  that  point  on  the 
surface  of  the  sphere. 

The  algorithm  presented  here  will  actually  draw  circles; 
something  which  won't  be  required  for  bouncing  balls.  For 
calculating  the  illumination  of  the  sphere  we'll  be  more 
interested  in  the  raw  numbers  —  the  coordinates  of  the  pixels, 
rather  than  the  pixels  themselves.  But  since  pictures  are 
easier  to  understand  than  numbers,  and  because  it  provides 
some  instant  gratification,  I  decided  to  draw  circles  now  and 
save  the  pure  calculations  for  later. 

Even  if  I  later  decide  to  take  a  different  tack,  this  month's 
algorithm  is  worthwhile  for  Is  own  sake.  It  provides  an 
excellent  example  of  the  use  of  local  variables,  and  it  is  also 
slightly  faster  than  the  circle-drawing  algorithm  included  in 
l^ulti-Forth. 

At  this  point  I  must  admit  a  weakness  on  my  part.  I  dont  yet 
know  how  to  create  animateable  objects  on  the  Amiga  from 
Forth.  What  I  expect  to  use  are  Blitter  Objects,  or  "BOBs,"  as 
they  will  provide  the  greatest  flexibility  and  also  allow  a  greater 
number  of  colors  than  hardware  sprites.  The  extra  colors  will 
be  required  for  the  different  levels  of  illumination.  If  there 
were  no  background  to  contend  with  the  balls  could  be 
animated  by  brute  force,  using  the  Blitter  to  move  a  chunk  of 


the  screen  from  one  place  to  another,  and  to  move  a  new 
image  into  place  as  the  ball  changed  its  apparent  size.  But, 
since  we  must  preserve  the  background  over  which  the  ball  is 
animated,  BOBs  seem  to  be  the  obvious  way  to  go.  I  just 
dont  know  how  to  use  them  yet. 

STACKS  AND  LOCALS 

Forth  programmers  are  accustomed  to  handling  most  data  on 
the  stack,  but  fvlulti-Forth  provides  an  alternative  in  the  form 
of  "locar  variables.  Besides  SWAP,  ROT,  DUP,  OVER  and 
all  the  other  stack  operators,  in  Multi-Forth  you  can  opt  for 
named,  local  variables  within  words  to  streamline  definitions 
and  make  your  code  more  readable.  After  only  a  few  weeks 
of  using  them  I've  been  converted.  Local  variables  are 
convenient,  readable,  often  faster  than  using  the  stack,  and 
they  obviate  one  of  the  objections  users  of  more  traditional 
languages  have  had  to  Forth  in  the  past.  There  may  be  an 
ultra-conservative  Forth  programmer  somewhere  who  will 
object  to  local  variables,  but  I  think  it's  a  great  idea  whose  time 
has  come. 

One  component  of  the  circle-drawing  algorithm  provides  an 
excellent  example.  The  algorithm  calculates  one  octant  (45 
degrees)  of  the  circle,  and  uses  symmetry  to  plot  the  other 
seven  pixels.  The  procedure  which  plots  the  eight  points, 
named  CIRCLE_POINTS,  is  a  perfect  choice  for  the  use  of 
local  variables. 

Referring  to  the  listing,  CIRCLE_POINTS  expects  the  x  and  y 
coordinates  relative  to  the  origin  on  the  stack.  OVER 
NEGATE  OVER  NEGATE  produces  -x  and  -y.  and  LOCALS |  - 
y  -X  y  X  I  then  creates  the  variables,  assigning  values  to  them 
in  the  order  that  the  values  come  off  the  stack.  Use  of  the 
local  variable  within  the  definition  causes  its  value  to  be 
pushed  onto  the  stack  to  be  used  by  DOT,  a  word  included  in 
Multi-Forth  which  plots  a  pixel  in  the  current  window.  The 
eight  invocations  of  DOT  then  use  symmetry  to  plot  the  eight 
pixels. 

The  words  ADDR.OF  and  TO  allow  modification  of  the  value 
of  a  local  variable.  "ADDR.OF  d"  places  the  address  of  d  on 
the  stack,  and  "0  TO  d"  would  set  the  local  variable  d  to  zero. 
It's  important  to  realize  that  variables  created  by  LOCALS]  are 
transient  They  only  exist  within  the  word  in  which  they're 
used,  so  the  same  variable  name  may  be  used  within  any 
number  of  words  and  mean  something  different  each  time, 
though  I  wouldn't  recommend  the  practice. 

The  word  which  calculates  the  x  and  y  coordinates  for  the 
circle  is  named  MICH_CIRCLE  after  J.  Michener,  who  derived 
the  algorithm  from  one  that  J.  Bresenham  developed  for  pen 
plotters.  A  reasonably  detailed  treatment  of  the  algorithm 
may  be  found  in  the  text  "Fundamentals  of  Interactive 
Computer  Graphics"  referenced  earlier. 
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I'll  tiy  to  distill  the  essence  of  the  algorithm.  MICH_CIRCLE 
expects  the  x  and  y  coordinates  of  the  origin  of  the  circle  and 
the  radius  on  the  stack.  First  rt  initializes  a  "decision  variable" 
d.  Then,  within  a  loop,  a  new  value  for  the  decision  variable  is 
calculated  incremently  and  the  sign  of  the  new  value  is  used 
to  determine  which  pixel  is  closest  to  the  radius  of  the  true 
circle.  The  x  coordinate  of  the  circle  is  incremented  on  each 
pass  through  the  loop  and  the  value  of  the  y  coordinate  is 
decremented  if  the  decision  variable  is  greater  than  or  equal 
1o  zero.  The  loop  is  exited  when  x>=y.  Refer  to  the  text  if 
you  wish  to  study  the  algebraic  manipulations  from  which  the 
calculations  used  in  the  algorithm  are  derived. 

CODE  OPTIMIZATION 

Code  optimization  is  a  dangerous  subject,  in  more  ways  than 
one.  The  quest  for  ultimate  efficiency  can  be  a  frustrating 
one,  with  many  pitfalls.  I  fell  into  one  myself  and  thought  I 
should  share  it  with  you.  After  my  success  at  coding 
MICH_CIRCLE  and  my  pleasure  at  seeing  it  actually  WORK  1 
thought  I'd  have  a  go  at  speeding  it  up  a  bit.  Multi-Forth,  like 
most  Forths,  includes  an  assembler  which  can  be  used  for 
optimization.  At  times  it's  indispensable,  but  a!  other  times 
overzealous  use  of  it  can  result  in  a  lot  of  wasted  time.  In  this 
particular  case  my  use  of  it  turned  out  to  be  mostly  wasted 
effort. 

Typically,  if  you  want  an  application  to  run  faster  you  translate 
the  inner  loops  into  machine  code,  since  you  may  be 
spending  90%  of  your  time  executing  10%  of  the  code,  f 
translated  the  portion  of  the  algorithm  which  recalculated  the 
decision  variable  and  the  values  of  x  and  y,  naming  it 
DECIDE. XY,  made  the  substitution  in  I^ICH_CIRCLE2,  and  lo 
and  behold,  !  got  a  whopping  one-half  of  one  percent 
improvement  in  the  execution  speed!  At  this  point  I  realized 
that  the  effort  was  pointless,  but  I  still  couldn't  resist  tweaking 
things  a  bit  more.  MICH_CIRCLE2  uses  locals  to  pass  the 
parameters  to  DECIDE. XY,  then  updates  those  variables 
upon  exiting  DECIDE.XY  by  using  the  Multi-Forth  word  TO.  It 
was  obvious  that  what  little  I  gained  by  using  machine  code 
was  being  reabsorbed  in  manipulating  the  variables. 

In  MICH_CIRCLE3  I  rearranged  things  so  that  the  decision 
variable  and  the  x  and  y  coordinates  were  left  on  the  stack, 
reducing  the  overhead  for  DECIDE.XY.  Now  when  I  ran  this 
"improved"  version  the  speed  increased  by  all  of  3%!  You 
have  undoubtedly  realized  by  now  that  Multi-Forth  is  already 
quite  fast,  and  more  importantly,  that  I  was  optimizing  the 
wrong  part  of  the  code.  Unable  to  content  myself  with  the 
obvious  truth,  I  decided  to  try  ONE  MORE  THING,  and  there 
at  least  I  accomplished  something,  even  if  it  wasnl  what  I 
expected. 

PROBLEMS  WITH  THE  ASSEMBLER 

Multi-Forth  has  an  interesting  feature  which  albws  assembly 
code  to  be  included  "in  line."  By  using  the  words  >CODE 
and  >FORTH  one  can  insert  machine  instructions  right  into 
the  middle  of  a  high-level  definition,  and  that's  what  I  did  in 
MICH_CIRCLE4.  When  I  tried  it  I  got  an  "empty  stack"  error, 
and  for  the  life  of  me  I  couldn't  understand  why.  I  spent  an 
hour  or  so  experimenting  and  scratching  my  head  (i  even 
called  Creative  Solutions),  and  eventually  tracked  the 
problem  to  a  mistake  in  the  Assembler.  By  the  time  you  read 


this  the  problem  will  be  corrected  on  the  latest  release,  but  if 
you're  not  sure,  go  into  the  "assembler"  file  using  your 
favorite  editor  and  find  >FORTI-l.  You'll  see  the  phrase 
"HERE  10  -(•"  which  should  be  changed  to  read  "HERE  OA  +" 
and  you're  all  set.  The  problem  was  that  HERE  10  +  created 
an  offset  for  a  Load  Effective  Address  instruction  which  was 
too  large  and  caused  a  branch  to  parts  unknown. 

A  FEW  FINAL  NOTES 

On  a  640x200  display  MICH_CIRCLE  doesnt  actually  draw 
circles.  It  draws  tall,  skinny  ellipses,  because  the  aspect  ratio 
isnt  1 :1.  Executing  '220  100  XYSCALE"  will  cause  it  to  draw 
something  much  closer  to  a  circle.  Before  you  can  compile 
the  code  you  will  have  to  "include  assembler"  for  the  CODE 
definitions.  Multi-Forth  doesn't  include  the  assembler  by 
default.  Those  who  are  familiar  with  standard  assembler  will 
probably  find  Forth  assembly  language  confusing,  since  it's 
"Reverse  Polish"  just  like  Forth.  A  more  serious  problem  is 
that  each  Forth  vendor's  assembler  is  slightly  different, 
making  translation  more  difficult.  Some  Forth  vendors  have 
decided  to  implement  the  standard  Motoroia  assembler 
syntax  for  just  that  reason. 

The  next  step  is  lo  execute  "samplewindow"  to  open  a 
window  in  which  the  circles  can  be  plotted. 

The  benchmark  I  used  fortiming  is  as  follows: 

:TEST 

100  100  100  0 

DO  2DUP  I  MICH_CIRCLE  LOOP 

2DROP  ; 
which  draws  100  circles  at  a  common  origin  with  radii  from  0  to 
99. 

SOURCE  LISTING  FOLLOWS: 

\  BreBenhara/Michaner    circle    algorithm. 

\  From    "FundamentalB    of    Interactive    Contputer 

\  Graphics" 

\  by  Foley  and  Van  Dam. 

\  Jon  R.  Bryan  6-24-86 

\  This  routine  plots  eight  pixala  of  the  circle 
using  symmetry 

:  CIRCLE_P0I1ITS    (  x\y  --  ) 
OVER   NEGATE   OVER   NEGATE 
LOCALS  I    -y    -X    y    X    I 

X  y   DOT     y  x   DOT    -x  y   DOT     y  -x   DOT 
X  -y   DOT    -y  X   DOT   -X  -y   DOT   -y  -x   DOT  ; 

\  First  we  do  everything  in  high  level 

:  MICH_CIRCLE    (  xcontor\ycenter\radiue  —  ) 

3   OVER   2*-  (  decision  variable  d=3-2*radiuB  ) 

0   {  the  initial  value  of  x  ) 

GET.XYOFFSET   (  DOT  is  relative  to  the  current 
XYOFFSET  ) 

(  initially  y^radius  ) 

LOCALS  I   yof f set    xof f set    x    d    y    ycenter 
xcentar   | 
(  next  set  XYOFFSET  to  the  origin  of  the  circle  ) 

xoffaet   xcenter   +    yoffeet   ycenter   + 
XYOFFSET 
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CIRCLE   POIHTS 


BEGIN  X       y 

WHILE  X       y  _ 

d       0< 

IF         X       4*       6+         ADDR.OF       d       +t     (    d=d+4*x+63 
ELS£ 

X       y       -       4*       10+    ADDR.OF       d       +1  - 

(  d=d+4*[x-y]+10  ) 
-1   ADDR.OF   y   +!   (  decrement  y  ) 
THEN 

1   ADDR.OF   X   +!    (  increment  x  ) 
REPEAT 

X   y   =  (  the  pixel  precisely  on  the  diagonal  ) 
IF    X   y   CIRCLE_F01NTS    THEN 
xoffset   yoffeet   XYOFFSET 

\  Now  we  decide  to  gat  tricky  and  optimize 
\  This  code  replaces  the  IF-ELSE-THEN  section 
above 

CODE  DECIDE. XY    (  d\x\y  --  d'\x'\y'  ) 
SP  )+   EEGLIST  D0-D2   LONG  MOVEM, 
(  move  values  to  registers) 

03   LONG  MOVE,   (  make  a  working  copy  of  x) 
LONS  TST,    (  d<0?  ) 


Dl 
D2 

MX 


IF,     D3   02  #   LONG  ASL,   D3  0  6  LONG  ADDQ, 
D3   D2   LONG  ADD,    {  d=4*x+6  ) 
ELSE,     DO   D3   LONG  SUB,  D3  02  «   LONG  ASL 
LONG  ADDI, 

LONG  ADD,    {  d=4*[x-yi+10  ) 
LONG  SUBQ,   (  decrement  y) 
LONG  ADDQ,    (  increment  x) 
LONG  MOVEM, 


DO 
D3 
D3 
DO 
THEN,     Dl 
BEGLIST  D0-D2 

(  new  stack  values 
NEXT    END-CODE 


D3 
10 
D2 
OX 

01 
SP    - 


) 


SciCalc 


TM 


Scientific  Calculator  For  The  Amiga 


TM 


I   3.1415926536         |  [cTT]  [ce]  [EJH  (^  |Hyp] 


$14.95 


Don't  let  the  price  (doI  you!  SciCalc  has  !ull  algebraic  hierarcy  and 
features  an  autorrratic  constant  that  is  a  delight  to  use.  Choose  from 
3  display  mpdes:  Floating  Point,  Scientific,  or  Fixed  Point.. 

Pfflss  the  Hyp(erbolic)  key  twice  and  a  whole  new  page  of  functions  is 
at  your  fingertips.  No  long  waits  -  SciCalc  has  been  available  since 
March.  Your  order  with  manual  will  be  sent  by  First  Class  mail. 

Features 

•  Large  Equals  Key  (Dsplay)  •Color  Highlighting 
•AdjustibleSize  'Full  Error  Trapping 

■  1 0  fklemofies  •  2  Dimensional  Statistics 

•Powers  'Linear  Regression 

■Logarithms  -Linear  Estimation 

•  Trigonometry  (l>'R/G)  -Correlation  Coefficient 

•  Hyperbolics  •  Factofials  to  1 70 

■  Pola;/Rectangular  Conversions,  and  more.  ' 

Dealers  Inquiries  Welcome 

Send  Check  for  $14.95  to: 

DESKWARE 

P.O.  Box  47577 

St.  Petersburg,  FL  33743 


\  And  wa  insert  the  new  routine... 

:  MICH_CIRCLE2     (  xcenter\ycent6r\radius  —  ) 
3   OVER   2*   -    0    GET.  XYOFFSET 
LOCALS!   yo£fset    xoffset    x    d    y    ycenti 
xcenter   | 

xoffset  xcenter  +  yoffset   ycenter  +    XYOFFSET 

BEGIN    X   y   < 

WHILE  X       y       CrRCLE_POINTS 

d       X       y       DECIDE. XY       TO       y       TO       x       TO 
REPEAT 

«    y    = 

IF    X   y   CIRCLE_POINTS    THEN 
xoffset   yoffset   XYOFFSET  ; 

\  Lo  and  behold,  it  makes  hardly  any  difference 

(less  than  .5%) ! 
\  So  we  decide  to  try  a  slightly  different  tack. 

:  MICH_CIRCIiE3    {  xcenter\yeenter\radius  --  ) 
GET .  XYOFFSET 

LOCALS  I    yoffset   xoffset  |  >R   (  save  radius) 
SWAP   xoffset   +   SWAP   yoffset   +   XYOFFSET 
3   Rg   2*   -    (  initialize  decision  variable  ) 
0   (  x)    R>  <  now  we  have  d\x\y  on  the  stack  ) 
BEGIN    2Dtrt'   < 

WHILE    2DUP   CIRCLE_POINTS    DECIDE. XY 
REPEAT 
2DUP   = 

IF    CIRCLE_POINTS   DROP    ELSE    2DR0P   DROP 
THEN  xoffset   yoffset   XYOFFSET  ; 

\  And  find  that  we've  ehaved  less  than  3%  off  the 

\  tinte!  Which  Just  goes  to  show  that  Multi-Forth  Is 


\  quite  fast  to  begin  with,  and  that  much  more  time 
\  is  spent  plotting  the  points  than  calculating 
\  their  coordinates.  But  just  to  demonstrate  one 

_\  more  technique,  here  is  an  example  of  the  use  of 

■\  >CODE  and  >FORTH  for  in-line  code. 


(  xcenter\ycenter\radlUB  —  ) 


MICH_CrRCLE4 

GET. XYOFFSET 

LOCALS  I    yoffset    xoffset  j  >R  (  save  radius) 
SWAP   xoffset   +   SWAP   yoffeet   +   XYOFFSET 
3   Re   2*   -   (  initial  value  of  decision 

variable  ) 
0   (  x)     R>  (  y=radius  initially  ) 
BEGIN    2DUP   < 
WHILE    2Dt;P   CIRCLE_POINTS 

>CODE 
SP   )  +  REGLIST  D0-D2  LONG  MOVEM, 

Dl  D3  LONG   MOVE, 


D2 

LONG 

TST, 

MI 

IF, 

D3 

02 

#   LONG   ASL, 

D3 

06 

LONG   ADDQ, 

D3 

D2 

LONG   ADD , 

ELSE 

DO 

D3 

LONG   SUB, 

D3 

02 

#   LONG   ASL, 

D3 

10 

LONG   ADDI, 

D3 

D2 

LONG   ADD, 

DO 

01 

LONG   StffiQ, 

THEN 

Dl 

01 

LONG   ADDQ, 

REG 

LIST 

D0-D2 

SP 

-)   LONG   MOVEM 

>FORTH 
REPEAT 
2DDP   = 

IF    CIRCLE_POINTS   DROP    ELSE 
THEN  xoffset   yoffset   XYOFFSET; 


2DR0P   DROP 


■AC- 
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„<-V  *-*  <A  V**  PRirnED  CIRCaiT  ARTWORK 


SCHEMATICS 


asr 


Jl  4 


merging  from  years  of  successful  problem  solving 
applications  in  piping,  and  electronics  for  the  aerospace 
industry,  DYhAMIC  CAD  has  brought  a  highly  advanced 
and  powerful  CAD  system  together  with  today's  most  dynamic  and 
versatile  micro-computer,  the  Amiga.  DYMAMIC  CAD  takes  full 
advantage  of  Amiga's  extensive  capabilities  with  color,  multiple 
modes  of  resolution,  mouse  functions,  and  easily  accessible 
pull-down  menus. 

This  is  not  some  promised  "vapor-ware."  DYNAMIC  CAD  exists 
now  and  comes  to  the  Amiga  with  a  proven  track  record.  The  time 
and  money-saving  applications  of  DYMAMIC  CAD  for  engineers  and 
architects  are  truly  astounding.  Here  is  an  advanced,  2-D  drafting 
system  with  isometric  capabilities  that  can  be  combined  with  many 
models  of  printers,  plotters,  and  digitizers.  In  getting  started  you'll 
have  the  support  of  an  extensive  manual  written  in  understandable 
English  along  with  working  examples  as  tutorial  lessons. 

WHAT  DYNAAAIC-CAD  CAN  DO  FOR  YOG  "    ' 


Z-iZ-^H''  -2A-. 


MECHANICAL  DRAFTIMG 


■   e-3JUK    ?B< 


ISOMETRICS 


t4^< 


MET  UST  FKOM  SCHEMATIC 


'Orbcr  —  l/ad*  fT,art«  ol  Gcfbei  Sotrtific  hvninwnli 

'Lttoy  —  irftd*  mart(  0/  KeuH*l  &  Eamt 

'IBM  —  tf9dr  mart,  erf  Imeinaljanal  Buuneu  MflChiRM 

"AoIoCAD  —  tTKjp  mart,  o(  Aulodtlk.  !nc 

'Am«ja  —  UBde  rnark  o(  Commo<3(jre  Sunness  Machines 


•  D.C  gives  you  all  the  expected  CAD  func- 
tions of  zooming,  rotating,  panning,  group 
functions  and  menu  driven  features. 

•  D-C  brings  you  professional  CAD  capability 
tested  and  proven  in  tfie  production  of  tens 
of  thousands  of  draviiings. 

•  D'C  will  liberate  you  from  tfie  need  to  draw 
free  hand. 

•  D'C  has  net  listing  capability-  from  your 
schematic. 

•  Schematic  companson  to  your  printed 
circuit  artwork  for  continuity  check. 

•  D-C  can  produce  isometric  views. 

•  Mil-Spec  quality  Leroy'  fonts, 

•  Automatic  line  dimensioning. 

•  D'C  includes  a  series  of  information  librar- 
ies: Symbols.  Electronic  Parts/Chips,  Archi- 
tectural Components,  Landscaping,  etc. 


•  Data  base  to  store  and  retrieve  information 
on  parts  speciHcations,  vendors,  and 
pricing. 

•  Data  base  system  utilizes  ASCII  format  files 
which  are  convertable  to  other  standards 

•  Capable  of  utiliiing  up  to  4,096  colors. 

•  D-C  can  generate  over  8.000  layers. 

•  D-C  supports  most  standard  dot  matnx 
printers.  Inkjet,  lazer  jet,  pen  plotters,  and 
the  Gerber'  Photoplotter. 


SYSTEM 

REQUIREMETfTS 

512KliAM 

2  Disk  Drives  (or) 

1  Drive  and  Hard  Disk 

Printer  or  Plotter 

Inquiries  invited.  (818)  360-3715 


mffw  ^/ / ^/ 

P.O.  BOX  3475.  G(?ArHADA  HILLS.  CA  91344 


"I  C  What  I  Think!" 

By  Ronald  Peterson;  


Graphics  is  the  single  most  outstanding  feature  of  the  Amiga. 
When  I  first  saw  an  Amiga  demonstration  at  the  SIGGRAPH 
'85  convention  in  San  Francisco  I  was  impressed  most  by  its 
display  capabilities.  For  under  $2000,  it  matched  most  of  the 
abilities  of  the  $80,000  graphics  terminals  I  use  in  my  job.  I 
knew  I  had  to  have  one,  sooner  or  later.  It  turned  out  to  be 
sooner,  and  I  spent  a  gleeful  couple  of  days  playing  with  the 
demo  programs,  but  eventually  I  wanted  to  start  writing  some 
graphics  programs  of  my  own.  I  started  by  writing  a  few 
routines  in  BASIC  and  though  it  could  draw  a  line  or  a  box 
with  reasonable  speed  I  was  horrified  by  how  slow  it  was  in 
performing  the  calculations  required  for  more  complex 
pictures.  I  soon  realized  that  most  of  those  fancy  demo 
programs  were  written  not  in  BASIC,  but  in  CI 

C  is  a  programming  language  thai  retains  a  freedom  of  access 
to  hardware  architecture  similar  to  assembly  language  while 
offering  many  of  the  more  advanced  constructs  of  a  high 
level  language,  such  as  loops  and  if-then-else  statements. 
So  I  got  hold  of  the  Lattice  0  compiler  and  the  Amiga  ROM 
Kernal  Manual  and  dug  in.  Learning  a  new  language,  a  new 
machine,  a  new  operating  system,  and  a  new  DOS  all  at  the 
same  time  looked  like  a  hopeless  task  at  first,  but  a  couple  of 
months  later  I  was  rewarded.  I  had  written  a  program  that  drew 
a  single  line  on  the  screen!  I  was  ecstatic!  While  it  may  not 
sound  like  much,  it  was  the  first  real  connection  between  an 
idea  in  my  head  and  a  picture  on  the  screen  of  an  Amiga.  I 
had  forged  myself  a  new  path  for  expression!  Once  I  had  that 
single  line  a  multitude  of  doors  opened  for  me.  In  short  order 
I  soon  had  boxes,  triangles,  hires  screens,  and  simple 
animations  to  fascinate  myself  with.  And  so  I  present  here 
the  results  of  my  trials  in  a  short  tutorial  form  to  encourage 
others  in  their  efforts  to  transform  ideas  to  the  screen  of  an 
Amiga.  First,  I  will  cover  some  of  the  basics  to  ensure  a 
common  ground  for  communication  but  the  real  intent  of  this 
article  is  to  pass  on  some  of  the  things  I  learned  that  the 
manuals  don't  tell  you. 

There  are  two  ways  of  accessing  the  Amiga's  graphic 
capabilities  when  using  the  C  language.  You  can  either  work 
through  the  Intuition  window  manager  or  you  can  open  your 
own  display  window,  called  a  Viewport.  Working  through 
Intuition  gives  you  all  the  flexibility  that  comes  with  the 
windowing  system.  I  am  more  interested  in  speed  and  raw 
graphics  power,  so  I  chose  working  through  my  own 
Viewport. 

The  fundamental  element  of  a  display  on  the  Amiga  is  a 
Raster.  A  Raster  is  simply  an  area  of  memory  which  has  been 
set  aside  to  be  used  for  holding  an  image.  The  Raster 
memory  is  periodically  scanned  by  the  Amiga  custom 
graphics  chips  and  its  contents  mapped  onto  the  monitor 
screen.  This  reserved  area  of  memory  is  also  called  a 
Bitplane  because  it  is  organized  into  planes  (remember 
geometry?)  that  are  up  to  1024  bits  square  by  up  to  six  bits 
deep.  Taking  a  bit  from  each  plane  -  for  example,  the  lower 
right  hand  corner  bit  -  and  putting  them  together  gives  a 


number.  This  can  be  used  as  an  index  into  the  Color  Lookup 
Table,  The  value  in  this  table  determines  the  color  for  the 
point  on  the  screen  that  corresponds  to  that  part  of  the 
bitplane  -the  lower  right  hand  corner. 

Since  the  Amiga  doesn't  have  1024  by  1024  resolution  only 
a  portion  of  a  set  of  bitplanes  can  be  displayed  on  the 
monitor.  The  selection  of  this  portion  is  accomplished  by 
using  a  Viewport.  A  Viewport  is  what  its  name  suggests;  a 
rectangular  window  through  which  a  subset  of  the  bitplanes 
can  be  seen. 


There  can  be  more  than  one  viewport  displayed  on  the 
screen  at  one  time  but  viewports  cannot  overlap  and  they 
cannot  exist  side  by  side.  They  can  only  be  stacked 
vertically.  As  far  as  I  can  tell,  each  bitplane  can  have  only  one 
viewport.  A  "screen"  as  demonstrated  in  the  Introduction  to 
the  Amiga  manual  is  an  example  of  a  viewport.  A  linked  set  of 
viewports  is  appropriately  called  a  View  since  this  is  what 
appears  on  the  monitor  screen.  In  the  same  sense  that  a 
viewport  is  a  window  for  seeing  into  a  bitplane  set,  a  Rastport 
is  a  window  for  drawing  into  a  bitplane  set.  A  rastport  can  also 
be  thought  of  as  a  communication  port  because  it  is  the 
channel  through  which  all  the  Amiga's  built  in  drawing 
routines  work.  So,  that  should  be  enough  of  an  explanation 
to  ensure  that  you  know  the  basic  terminology  and  concepts 
involved  in  creating  a  display.  The  program  listing  that 
accompanies  this  article  demonstrates  how  to  implement  all 
of  these  concepts  in  a  C  program.  It  draws  heavily  on  the 
example  program  on  pages  2-28  through  2-31  of  the  Amiga 
ROM  Kernal  Manual  which  I  gratefully  acknowledge.  But 
before  we  get  to  the  program  here  are  some  of  the  tips  I 
promised  on  things  that  aren't  in  the  ROM  manuals. 

The  first  thing  I  learned  is  that  there  are  mistakes  in  the 
example  programs  in  the  Kernal  manual.  Although  the 
programs  segments  and  examples  are  supposedly  tested 
and  functional,  they  don't  always  work.  I  suggest  reading  the 
first  four  chapters  (particularly  the  chapters  on  Messages  and 
Ports  and  on  I/O)  to  get  some  idea  of  how  to  communicate 
with  the  Amiga  and  in  order  to  be  able  to  troubleshoot  the 
examples. 

Double  buffering  is  a  technique  where  two  independent 
viewports  are  displayed  alternately  so  that  all  the  drawing  that 
is  going  on  is  hidden  from  the  observer  and  a  smooth  looking 
animation  results.  If  you  are  interested  in  double  buffering  a 
display  then  two  rastports  are  required  to  draw  into  two  sets 
of  bitplanes.  Swapping  one  rastport  back  and  forth  doesnt 
work. 

The  LoadViewO  function  is  the  one  that  causes  what  you've 
drawn  to  appear  on  the  screen.  This  is  particularly  important 
for  double  buffering.  It  is  not  enough  to  just  change  the 
copper  list  pointers.  You  must  execute  a  new  LoadView()  in 
order  to  get  the  new  picture  to  the  screen.    If  you  allocate 
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memory  (such  as  required  for  a  bilplane)  then  deallocate 
when  your  program  is  done.  If  you  don1  then  each  lime  you 
run  your  program  another  chunk  of  memory  will  disappear 
until  you  reboot,  eventually  crashing  your  system  when  you 
run  out  of  free  memory. 

Syncing  with  the  vertical  blanking  interval  is  easy  once  you 
know  how.  There  are  two  functions  for  this  purpose  called 
WaitBOVPO  and  WaitTOF().  WaitBOVP()  waits  for  the 
electron  beam  to  scan  to  the  bottom  of  the  current  viewport 
and  WaitTOF()  waits  till  the  vertical  blank  interval  has  begun.  I 
found  that  putting  a  call  to  WaitBOVPO  right  before  the 
LoadViewO  call  syncs  things  up  nicely. 

Sometimes  you  would  like  to  have  a  program  run  until  you  are 
tired  of  watching  it.  So  you  put  it  into  an  endless  loop.  This 
works  except  that  you  have  to  reboot  the  system  when  you 
want  to  use  it  again.  Using  control-C  to  abort  the  program 
would  be  ideal,  but  writing  a  console  handler  to  implement 
such  a  trap  is  painful,  to  say  the  least.  However,  someone 
somewhere  has  been  kind  to  us  and  has  given  us  a  neat 
function  call  just  for  this  purpose.  To  activate  CTRUC 
checking  set: 

Enable_Abort  =  1;  .  o 

Every  time  your  program  calls  an  I/O  function  (like  printf}  a 
check  will  be  made  for  a  CTRL7C.  If  you  would  rather  handle 
the  abort  yourself  (so  you  can  deallocate  all  that  memory)  set 
Enable_Abort  =  0  and  call  Chk_Abort()  somewhere  In  your 
main  loop.  If  ChkAbort()  returns  a  nonzero  value  then  abort! 
(See  listing  for  example.) 

Here  are  some  tricks  to  speed  things  up:  there  are  several 
things  you  can  try.  One  is  to  try  the  Motorola  Fast  Floating 
Point  math  library.  It  can  be  significantly  faster  than  the 
Lattice  math  routines  since  Ihey  are  in  hand-tooled  machine 
code,  instead  of  C.  [Ed.:  You  might  also  consider  using  fixed- 
point,  floating  point  numbers,  or  using  only  integers,  instead 
of  floating  point  numbers.]  Another  trick  is  to  reduce  the  size 
of  the  objects  you  are  animating.  This  is  not  always  desirable. 
Finally,  if  you  are  using  a  similar  set  of  calculations  over  and 
over,  such  as  moving  an  object  in  a  circle  you  can 
precalculate  the  coordinates  o(  the  path  and  store  them  in  an 
array  to  provide  much  faster  access.  Now  for  some  fun! 

The  program  shown  in  Listing  1  shows  most  of  the  features  I 
have  talked  about  here.  It  creates  a  smoothly  animated 
display  on  a  320  by  200  viewport  of  some  rotating  triangles. 
The  positions  of  the  corners  are  precalulated  to  improve  the 
speed  and  a  control-C  trap  is  implemented  as  described 
above.  It  is  synced  with  the  vertical  blanking  interval  and  is 
double  buffered  so  that  you  don't  see  the  triangles  being 
drawn. 

When  you  run  this  program,  don1  be  scared  when  your 
screen  instantly  turns  togarbage,  This  is  just  what  the  bit 
plane  looks  like  before  you  clear  it.  I  left  this  in  intentionally.  I 
like  it.  It  is  something  you  don't  get  to  see.  Use  SetRast()  if 
you  want  to  blank  the  screen.  After  a  few  seconds,  the 
precalculations  will  be  done,  and  the  triangles  will  appear. 
The  source  code  to  this  program  can  be  found  on  the 
AMICUS  disks.  Check  the  catalog  for  more  information. 


Listing  One 


/* FASTEST.    C 

/*     D«]iionBtrata  opening  «  Viewport    and  doing 

■in^le    */ 

/*  Animation  using  a  double  buffered  display. 

/*  Written  By  Ronald  Peterson 

/*  Wltli  acknowledgemantB  to  the  ROM  Manual 


/*  INCLUDE 's  - 


Ifinclude  "stdlo.h" 
# include  "math.h" 
#include  "exec/types .h" 
finclude  "graphics/gfx .h" 
^include  "hardware/dmabits.h" 
^include  "hardware/custom. h" 
#includa  "graphics/gfxinacros -b" 
#lnclude  "graphics/copper. b" 
#include  "graphics/view. b" 
ilnclude  "graphics/gelB.h" 
^include  "graphics/regions. b" 
#inalude  "graphics/clip. h" 
#include  "sxec/exec.b" 
Ilnclude  "graphics/text .h" 
Ilnclude  "gcaphlcs/gfxbasa.b" 
Ilnclude  "graphics/raatport .h" 


•/ 


*/ 


/*  DEFINE 's 


'/ 


Ideflne  DEPTH  4       .  . 

#define  WIDTH  320  ,  ,^  ,, 

Idefine  HEIGHT  200 

#define  N0T_EN00GH_MEMORY  -1000 

Idefine  CLIP  0   /*  0  =  no  clip  //  1  =  clip  */ 

/*  set  CLIP  to  1  for  debugging  bo  that  you  don't 

draw  outside  the  bitplane  */ 
/*  and  crash  the  syBtem.  */ 

/*  GLOBAL  variable  definitions  - 


struct  View  v; 
struct  Viewport  vp; 
struct  ColorMap  *cin; 
struct  Raslnfo  ri; 
struct  BitHap  b; 
struct  BitMap  b2; 

/*  second  bitmap  for  double  buffering  */ 
struct  cprlist  *lofl; 

/*  copper  list  pointers  for  double  buffer  */ 
struct  cprlist  *lof2; 
struct  cprlist  *6hfl; 

struct  cprlist  *Bhf2;  , 

extern  Int  Enable  Abort ; 


/*  RastPort  variables  

PLA1?£PTR  rastpoint,  raEtpoint2; 

struct  RastPort  rp; 
struct  RastPort  rp2; 

WORD  areabuf fer [250] ; 
struct  TinpRaB  tropras; 
struct  Arealnfo  myArealnfo; 
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WORD  areabuffer2t2S0] ; 
struct  TrnpRas  tnipras2; 
struct  Arealnfo  myAreaInf o2 ; 


LONQ  1; 

SHORT  j,Jc,n; 

int  c ,  iphl ; 

double  phi,  rad; 

double  QsinrayO,  QcoerayO  ; 

extern  struct  ColorMap  *GetColorMap () ; 
struct  Gf xBase  *GfxBase; 

struct  View  *oldview; 

/*  save  pointer  to  old  view  so  can  restore  */ 

USHORT  colortablel]  =  {OxOQO,  OxfOO,  OxOfO,  OxOOf, 
0x880,  0x088,  0x808,  0x123,  0x045,  0xe4f,  0x59a, 
0x3d3,  0x7fa,  0x675,  Oxabc,  Oxfff}; 
/*  set  colors  black,  rad,  green,  blue, 
yellow, purple, orange, etc  */ 

DBYTE  *diBplaymem; 
nWORD  *colorpalette; 


/*  Start  of  main  routine 


-*/ 


mainO 

{ 

static  int  xxx[12],  yyy[12],  flag,  good,  line, 
ioff set ; 

static  double  inc,  two_pi,  offset; 

rad  =  3.1415926/180.;  - 

inc  =5.  *  rad; 

offset  =  80 .  *  rad; 

line  =  2; 

ioff set  =  80; 

twoj.i  =  6.2831852; 

GfxBase  =  (struct  GfxBase  *) 

OpenLibrary ( "graphics . library" , 0) ; 
if  (GfxBase  =  NULL) exit (1) ; 
oldview  =  GfxBase->ActiVl«w; 

/*  save  current  view  to  restore  later  */ 

InitView ( fiv) ;      /*  initialize  view  */ 
InitVPort (ivp) ;     /*  initialize  viewport  */ 
V. Viewport  =  Svp;  /*  link  view  into  viewport  */ 

/*  init  bit  map  (for  rasinfo  and  rastport)  */ 
InitBitMap (fib, DEPTH, WIDTH, HEIGHT) ; 
InitBitMap(ib2, DEPTH, WIDTH, HEIGHT) ; 

/*  set  up  information  about  Raster  location  */ 
ri.BitMap  =  4b; 
ri.RxOffset  =  0; 
ri.RyOffeet  =  0; 
ri.Next  =  NOLL; 


specify  dimensions  */ 
vp.DWidth  =  WIDTH; 


/* 


vp.DHeight  =  HEIGHT; 
vp. Rasinfo  =  Sri; 


/*  init  color  table  */ 
cm  =  GetColorMap(16) ; 

/*  16  entries,  since  4  planes  deep  */ 
colorpalette  =  (UWORD  *)cin->ColorTable; 


WE'VE 

SLASHED 
PRICES    .  _  -.^^^  .  , 

ON  THE  AMIGA: 

The  West  Coast's  Largest  Inven- 
tory of  Commodore  And  Amiga 
Software  And  Hardware  Products 


CALL 


(818)  366-5305  •  366-9120 


10815  Zelzah  Avenue    Granada  Hills,  CA  91344 


for  (1=0;  K16;  i++) 

*colorpalette++  =  eolortable [i] ; 

/*  copy  my  colors  into  this  data  structure  */ 
vp. ColorMap  =  cm; 

/*  link  It  with  the  viewport  */ 

/*  allocate  space  for  two  bitmaps  */ 
for(i=0;  KDKPTH;  i++) 

{ 

b. Planes  [i]  = 
(PLAHEPTR)  AllocRaster  (WIDTH,  HEIGHT)  ; 

if  (b. Planes  [i]  = 
NULL)  exit  (NOT_EN0UGH_MEM0RY)  ; 

b2  .Planes  [i]  = 
(PLANEPTR) AllocRaster (WIDTH, HEIGHT) ; 

if  {b2. Planes  [i]  = 
HULL)  exit  (NOT_ENOUGH_MEMORY)  ; 
) 

ri.BitMap  =  Sb; 
MakeVPort (sv, 4vp) ; 

/*  construct  copper  instr  (prelim)  list  */ 

MrgCop(Sv)  ; 

/*  merge  prelim  lists  together  into  a  real 

*  copper  list  in  the  view  strueture    */ 
lofl  =  v.LOFCprList; 

/*  store  pointers  to  copper  lists  */ 
shfl  =  v.SHFCprLlst; 

/*  for  double  buffering  */ 
V.LOFCprList  =  0; 
V.SHFCprLlst  =  0; 
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rl.BltMap  =  t,b2; 
MakeVPort (fiv, Svp) ; 
HrgCop ( Sv) ; 
lof2  =  v.LOFCprLiat; 

/*  store  pointers  to  copper  lists*/ 
shf2  =  v.SHFCprLlst; 

/*  for  double  buffering   */ 

LoadVle*r(&v)  ; 

/*  tell  copper  to  use  list  for  display  */ 

/*  now  initialize  a  rastport  */ 

InltRastPort  (£rp)  ,- 

rp.BitMap  =  sb;    /*  link  rastport  to  bitmap  */ 

SetDrHd(«rp, JAMl) ;   /*  set  draw  mode  to  JAMl  */ 

/*  now  set  up  buffer  for  area  fill  */ 

InitArea (imyArealnfo,  areabuffer,  100); 
rp.AreaXnfo  =  CmyArealnfo; 

rastpoint  = 
(PLANEPTR) AllocRastar (WIDTH, HEIGHT) ; 

InltTmpRas (£tmpras,  rastpoint, 
RASSIZE (WIDTH, HEIGHT) ) ; 

rp.TmpRas  =  ctmpras; 

/*  now  initialize  a  second  rastport  */ 
InltRaetPort (trp2) ; 

rp2.BitHap  =  tb2,-  /*  link,  rastport  to  bitmap  */ 
SetDrMd(trp2, JAMl) ;  /*  set  draw  mode  to  JAMl  */ 

/*  set  up  buffer  for  araa  fill  in  RastPort  2  */ 

InitArea(£myAreaInfo2,  areabuffer2,  100); 
rp2.AreaInfo  =  SmyAreaInfo2; 

rastpoint2  = 

(PLANEPTR)AllocRastar (WIDTH, HEIGHT)  ; 

InitTmpRas (£tmpras2,  raatpolnt2, 
RASSIZE (WIDTH, HEIGHT) ) ; 

rp2.Ti:^Ras  =  £tn^ras2; 

phi  "0.; 

iphi  =0; 

flag  =  0; 

SetOPen(trp, 1) ;     /*  set  outline  color  */ 

SetOPen(£rp2, 1) ;     /*  set  outline  color  */ 

Enable_Abort  =  0; 

/*  disable  automatic  CTBi-C  abort  */ 
for(i-0;  KIOOOOO;  i++) 
( 

if  {0  !=  Chk_Abort()) 

/*  check  for  CTRL-C  abort  */ 


{ 


) 


goto  dats_all; 


v.LOFCprList  -  lofl; 

/*  set  pointers  to  copper  lists  and  */ 
V.SHFCprLlst  ••  shfl; 

/*  set  RastPort  bitmap  pointer*/ 
WaitBOVP(Svp); 

/*  wait  till  in  vertical  blank  area  */ 
LoadView ( tv) ; 

/*  display  Viewport  1  (bitmap  1)  */ 

SetRast ( G  rp2 , 0 ) ; 

/*  clear  viewport  2  (bitmap  2)  */ 
if  (flag  =  0) 


{ 

iphi  =  iphi  +  line; 

for  (good=0;  goodO;  good++) 

( 

iphi  =  iphi   +  ioffset; 
if    (iphi   >    360)iphi=iphi-360; 
xxxigood]    "    (int)Qsinray (iphi) ; 
yyytgood]    =    (int)Qco«ray (iphi) ; 
#lf  CLIP 

if    (XXX [good]    >    (WIDTH-1) )    xxx[good]    =  WIDTH-2; 
if    (XXX [good]    <   0)    xxx(good]    =   1; 
if    (yyyCgood]    >    (HEIGHT-1) )    yyy[good]    =  HEIGHT-2; 
if    (yyy[good]    <   O)    yyy[goodj   =  1; 
iVendif 


) 


) 


/*  move    endpolnts    slightly  and   redraw   */ 
flag  =   1; 

iphi   =   iphi    +    iinc; 
for    (good=0;    good<9;    good++) 
{ 

iphi   =   iphi   +   ioffset; 
if    (iphi   >   3  60)lphi=iphi-3G0; 
xxx[good]    =    {int)Q8inray (iphi) ; 
yyy[good]    =    (int)Qcosray (iphi)  ; 
#if  CLIP 

if    (xxx[good]    >    (WIDTH-l) )    xxx[good]    -  WIDSH-2; 
if    (xxx[good]    <   0)    xxx[good]    —   1; 
if    (yyy[good]     >     (HEIGHT-D)     yyy[good]    =   HEIGHT-2; 
if    (yyy[good]    <   O)    yyy[good]    =   I; 
#endif 
) 

SetAPen(Crp2,3); 
AreaMove  (trp2,xxx[0] ,  yyy[0])  ; 
AreaDraw(«rp2,xxx[l]  ,  yyy[l] )  ; 
AreaDraw(firp2,xxx[2]  ,  yyy[2] )  ; 
Area£nd(Crp2) ; 


5etAPen(trp2,2}  ; 
AreaMove («rp2,xxxE3] , yyy[3] ) 
AreaDraw(trp2,xxx[4] ,  yyy  [4] ) 
AreaDraw(erp2,xxxES] ,  yyy  [5] ) 
AxeaEnd ( £  rp2 ) ; 


SetAPen(£ip2,l}  ; 
AreaMove  (£rp2,xxx[6]  ,yyy[6])  ; 
AreaDraw(£rp2,xxx[7]  ,  yyy  [7])  ; 
AreaDraw(£rp2,xxx[8]  ,yyy[8])  ; 
ArBa£nd(crp2) ; 

V.LOFCprLiat   =    lof2; 

/*    set  pointers   to  copper   lists   and   */ 
v.SHFCprList    ««    ahf2; 

/*   set  RastPort  bitmap  pointer*   / 
WaitBOVP (£vp) ; 

/*   wait   till    in  vertical  blan)c  area   */ 
LoadView (£v) ; 

/*   display  Viewport    2     (bitmap   2)     */ 

SetRast  (£rp,  0)  ; 

/*  clear  Viewport  1  (bitmap  1)  */ 
iphi  =  iphi  +  iinc; 
for  (good=0;  goodO;  good++) 
{ 

iphi  -  iphi  +  ioffset; 
if  (iphi  >  360)iphi=lphi-360; 
XXX [good]  =  (int)Qsinray(iphi) ; 
yyy[good]  =  (int)Qcosray (iphi)  ; 
#if  CLIP 

if  (xxx[good]  >  (WIDTH-l))  xxx[good]  -WIDTH-2; 
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if     (XXX  [good]    <    0)    Jocx[good]    -    1; 
if    (yyyEgood]    >    (HEIGHT-D)    yyyEgood]    =   KEIGHT-2; 
i*    (yyyfgood]    <   O)    yyy(good]    =   l; 
#6iidif 

} 

SetAPen(Srp,3)  ; 

AreaMo ve ( £xp , XXX [ 0 1 , yyy [ 0 ] ) ; 

AreaDraw(i£p,xxx[l]  ,yyy[l] )  ; 

AreaDraw(£rp,xxx[2]  ,yyY[2])  ; 

AreaEnd(£cp}  ; 


SotAPonCsrp,  2)  ; 
AxeaMove  (firp,xxx[3]  ,yyy  [3] ) 
AreaDr«M(*rp,xxx[4]  ,yyY[4] ) 
AreaDraw(£rp,xxx[5]  ,yyy[5]) 
Axea£iid(£rp)  ; 

SotAPen(£rp,  1)  ; 
AreaMove (£rp,xxx[G] ,yyy [6] ) 
AreaDraw(£rp,xxx[7]  ,yyy[7] ) 
AreaDraw(£rp,xxx[S]  ,yyy(a]) 
AreaEnd(irp)  ; 


dats_all: 

LoadVlew(oldvleH}  , 


} 


FreaMamoryO  ; 
CloseLlbrary (Gf xBase) 


/*  put  back,  the  old  view  */ 
/*  exit  gracefully  */ 


/*  End  of  main */ 

I*   return  user  and  syBtem-allocated  memory 

to  ays  manager  */ 
FreeMemory ( ) 
{ 

/*  free  drawing  ar«a  */ 
FreeRaeterfraatpoint, WIDTH, HEIGHT) ; 
FreeRaster (raBtpoint2, WIDTH, HEIGHT) ; 
for(i=0;  i<DEPTH,-  1++) 
{ 

FreeRaster  (b. Planes  [i] ,  WIDTH,  HEIGHT)  ; 

FreeRaster (b2. Planes [i] , WIDTH, HEIGHT)  ; 
) 
/*  free  the  color  map  created  by  GetColorMap ( )  */ 
FreaColorMap (cm) ; 

/*  free  dynamically  created  structures  */ 
v.LOFCprList  =  lofl; 
v.SHFCprLiBt  =  shfl; 
FreeVPortCopLists (fivp) ; 
FreeCprList  (v.LOFCprHet)  ; 
FreeCprLiet (v.SHFCprList) ; 

/*  free  up  interlace  copper  list  */ 
V.LOFCprList  =  lof2; 
V.SHFCprList  =  Bhf2; 
FreeVPortCopLists (£vp) ; 
FreeCprList (v.LOFCprList) ; 
FreeCprList (v.SHFCprList) ; 

/*  free  up  Interlace  copper  list  */ 
return ( 0 ) ; 


/*  store  endpoints  of  triangles  to  speed  up 
rotation  */ 

double  Qslnray(tbeta) 
Int  tbeta; 

{ 

int  j; 

static  int   if lag  =   0; 


DATA  REDUCTION 
ASSOCIATES  INC. 

303  West  Sixth  Avenue  Dept.  A 
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INCLUDING; 
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.      "HANDLER)!)"...  AN  EXCEPTION 
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MODIFY  YOUR  CODE  i.e. 

MOVE.W  SR,  <EA>,  "DBG010"... 

AN  INTERACTIVE  DEBUGGER  THAT  YOU 

CONTROL,  AND  COMPLETE  INSTRUCTIONS. 

PRICED  @  $115.00  COD  or  CHECK. 
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static  double  x,  result [365] ; 

if  (iflag  ==  0) 
{ 

iflag  =  1; 

X  =  0  .  ; 

for(j=0,-  j<365;  j++) 


{ 


X  =  X  +  .0174532; 

result [j]  =  150.*sin(x)+lSl. 


) 

return (result [theta] ) ; 


double  Qcosr ay (theta) 

int  tbeta; 

( 

int  j; 

static  int  jflag  =  0; 

static  double  x,  result [365] ; 

if  (jflag  ==  0) 
jflag  =  1; 

X  =  0.; 

for(j=0,-  j<365,-  j++) 

{ 

X  =  X  +  ,0174532; 
result[j]  =  9S.*cos(x)+99,; 
} 
} 
return  (result  [theta]  )  ; 
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SYMPHONY  MUSIC  LIBRARY 

^\  ihe  librar>'  conlains  over  800  four  voice  stereo  music  pieces  to  turn  F*n 

^    A  vour  AMIGA  into  a  sophisticated  lukebox  providing  vou  with  over  ^0        ^      I 

hour',  oi'  niusir. 


-^ 


•  Turn  youf  AMIGA  into  an  incredible  music  machine. 
"  Over  800  masterpieces  in  entire  library. 

■  Over  100  songs  in  each  volume. 

•  Not  just  single  ntile  music,  ilul  ^1  full  voite  arrjngements. 
"  Each  volumi-  conldins  over  i  houfs  of  music. 

■  Stereo,  ^lonl^.  .ind  .\ilDI  output  simultaneously. 

■  You  ma\  specify  sound  of  eadi  nl  the  voices. 

SYMPHONY  LIBRARY  Vol  3 

Pop  Music  from  the  -lOs.  511'^.  Iifl's.  "Il's 
lie.itles  Medlev 


•  Over  30  hours  of  music  in  entire  librafy. 

•  User  selectable  tempo. 
■  Selections  may  be  played  thru  any  MIDI  synthesizer  using  the  MIDI 

CONNECTION  (sold  separately). 

•  User  selectable  key  {transposition). 

•  Includes  lokehox  program  lo  allow  you  to: 

1)  Select  all  pieces  and  sit  bjtk  lo  hours  of  uninterrupted  music. 

2)  Select  the  order  you  wish  the  pieces  to  be  played. 
i)  Select  Ihe  number  of  limes  you  wish  each  piece  to  be  played. 


SYMPHONV  LIBRARY  Vol  I 

Music  from  Stage,  ^ireen  i\   l\ 

Pop  iS-^usic  from  Ihe  'JOs,  Wl's.  ^  Tl]\ 

Old  Time  Favorites 

Classical 

Christmas  ipopular  i  traditional) 

Patriotic 

Polka  Parly 

SYMPHONY  LIBRARY  Vnl  2 

Music  Potpimrn 
Barbershop  (Juarlelle 
Religious  .Music 
Hits  of  Ihe  HOs 
\'arielv 


SYMPHONV  LIBRARY  Vol  4 

I V  I  heme  ,Music 
Ik-elhover'.  Broadwav.  &  Blues 
Kennv  Rodgtrs  Greatest  Hils 
Best  of  Ihe  Beatles 
Coonirv  Classics 

SYMPHONV  LIBRARY  Vol  3 

Popular  Potpourri 
Polka  Partv 
Classical 
fribule  to  Bach 
Christmas  Treasure 


SYMPHONV  LIBRARY  Vol  6 

Nostalgic 

Richard  Rogers  Songbook 

Music  from  Ihe  Movies 

Pop  Musit  from  Ihe  60'5,  70's,  &  eO's 

SYMPHONY  LIBRARY  Vol  7 

Variety 

Classical 

Pop  Music  from  llie  30's  thru  80's 

Popular  Classics 


SYMPHONY  LIBRARY  Vol  8 


Surprise! 
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THE  MIDI  CONNECTION 
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Ihe  MIDI  C:0\MI.IIC.)\  is  a  h,irduare  interi.ue  to  allow  \i>u  to  conned  tile  A.MICA  to  any 
MILII  svnthesi7cr,  drum  machine,  sampler  and  more.  MIDI  IN  and  OUI  connectors  wilh 
cables  allow  easv  inslaltation,  Ihe  MIDI  CONNECIION  nvav  be  used  with  our  SYMPHONY 
MUSIC  LIBRAKV  or  Ihe  MIDI  SYMPHONY. 
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THE  MIDI  SYMPHONY 
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The  .MIDI  S\  ,MPH(J\V  program  and  the  \1IDI  (  (.JWtCIION  hardware  inlerlace  give  you  Ihe  lealures  \ou  need  lo  compose  serious  musit 
using  MIDI  equipment,  li'aliires  include: 


•  Supports  up  to  16  tracks. 

•  Kl.UIJO  events  per  track. 

•  -1I),0<)0  events  all  tracks. 

•  ^^ay  be  used  as  a  sequencer. 

•  Menu  driven, 

•  Overdubbing. 

•  User  friendly  graphics  display. 


•  Metronome  available  for  svnchronizalion. 

•  lempt)  may  be  modified. 

•  Change  key  (Iranspositionl. 

•  Quantizing  lo  J2nd  or  64th. 

•  Playback  any  or  all  tracks  at  any  lempo, 

•  tracks  may  be  deleted,  copied,  transposed  or 
mixed. 


•  Filter  out  unwanted  channel  or  type  of  .MIDI 
data. 

•  Simple  music  editing. 

•  Real  Time  recording  and  playback. 

•  Playback  all  or  individual  tracks. 

•  Track  delete,  copy,  transpose  or  mix. 

•  Editing 


COMING  SOON 
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SYMPHONY  SOUND  SAMPLER.  Ilvs  high  speech  digital  sampler  al- 
lows vou  111  create  and  modify  sounds.  When  used  with  ihe  SYM- 
PHONY  Piano  Keyboard,  you  can  turn  vour  .AMIGA  into  an  EnsOniq 
Mirage. 

SYMPHONY  WRITER.  A  composition  program  specifically  fordevelop- 
ing  sheet  music. 


SYMPHONY    61    riolp    Piano    Keyboard.    This    professional    quality 
keybo.ird  transforms  vour  AMIGA  into  a  real  synthesizer. 

CASIO  CONNECTION.  This  program  and  the  61  note  keyboard  allous 
CZ-IUI  and  CZ-IO(H)  owners  lo  use  a  full  size  keyboard. 

AMICA  IS  ,1  lr.irlfm.irk  nl  Cummndiiri'.AmttJd  Inc. 
,MirJ|jL-  IS  ^  lr.uli-m,^i^  til  Insnniii  liK 


We  accept  CASH.  CHECK.  COD.  VISA  and  MASTER  CARD  orders. 

Shipping  and  handling  US  anti  Canada SJ.fKl 

Shipping  and  handling  outside  the  US  and  Canada     ......     S5,00 

COD  charge    S2.00 

Illinois  fesitients  add  hWi<  sales  tax. 
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38W253  DEERPATH  ROAD 

BATAVIA,  ILLINOIS  SU310 

(1121  879-6880 
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By  Richard  Rae  — 

Music  Editor 

CompuServe  [72177,351 6] 

AN  INTRODUCTION  TO  MIDI 

If  youVe  been  tracking  the  various  Amiga  music  packages 
soon  to  hit  the  market,  you've  probably  run  across  references 
to  MIDI  capability.  YouVe  also  heard  about  MIDI  if  you've 
been  involved  in  the  ongoing  Amiga/ST  debate,  or  if  you 
own  one  of  the  current  crop  of  synthesizers.  I  want  to  devote 
this  column  to  a  very  brief  introduction  to  MIDI  and  why  it  is  a 
valuable  asset. 

MIDI  stands  for  Musical  Instrument  Digital  Interface.  Like 
RS232  or  Bell  212A,  it  is  a  standard  for  communications.  And 
like  other  standards  it  can  be  extremely  useful...  consider 
where  we'd  be  if  every  computer  manufacturer  used  his  own 
(incompatible)  serial  communbaiions  protocol! 

MIDI  is  the  result  of  a  collaboration  between  numerous 
musical  instrument  manufacturers,  and  Is  guided  by  the  MIDI 
Manufacturers  Association  (MMA)  and  the  International  MIDI 
Association  {IMA).  The  IMA  sells  both  abbreviated  and 
detailed  MIDI  spec  packages,  and  membership  is  available  to 
anyone  willing  to  pay  the  dues.  (The  address  will  be  given  at 
the  end  of  this  column  in  case  you're  interested...) 


WHAT'S  IT  GOOD  FOR? 

Now  before  delving  into  the  specifics,  let's  ask  a  very 
important  question:  what  can  MIDI  do  for  you?  The  answers 
are  many  and  varied,  depending  on  your  interests  in  music. 
Let's  take  a  look  at  just  a  few  of  them. 

Possibly  the  most  important  application  to  many  of  us  is  the 
"tapeless  studio".  If  you  wanted  to  record  a  difficult 
synthesized  passage  in  the  days  before  MIDI,  you  had  to  play 
it  over  and  over  until  you  got  it  right.  With  MIDI,  the  choices 
multiply.  Oh,  you  can  still  try  it  until  you  get  it  right.  But 
instead  of  using  a  mechanical  deck  time  and  again,  waiting 
through  the  rewind  as  well  as  adding  wear  and  tear,  you  can 
record  the  passage  digitally  with  your  computer  via  MIDI. 
"Rewind"  is  instantaneous,  and  there  are  no  mechanical  parts 
involved.  What  if  you  almost  got  it  but  made  one  tiny  little 
mistake?  With  most  MIDI  sequencers  you  can  actually  edit 
the  recording  on  a  NOTE  BY  NOTE  BASIS.  This  is  almost 
impossible  on  a  tape  deck,  except  for  those  of  us  with  infinite 
patience  and  a  steady  hand  with  a  razor  blade.  Or  suppose 
the  passage  is  just  too  fast  for  your  fingers.  You  can  slow 
down  the  data  rate:  reduce  the  tempo  of  your  recording  and 
play  the  piece  at  a  speed  you  can  handle.  After  recording  at 
the  reduced  speed,  you  can  return  the  tempo  to  normal  with 
no  loss  of  quality.  If  you  just  can't  play  at  all,  you  still  have  an 
option;  enter  the  score  note  by  note  in  musical  notation 
format.  Once  the  score  is  entered,  you  can  ask  the  computer 
to  play  it  back  through  the  synthesizer  just  as  if  you  had 
originally  played  H  on  the  keyboard. 


MIDI  will  also  help  you  "clean  up  your  act".  If  you've  recorded 
a  passage  which  is  perfect  except  for  timing,  most  sequencer 
programs  will  altow  you  to  quantize  the  data,  "snapping"  the 
notes  to  the  nearest  beat. 

MIDI  is  a  great  time  saver  as  well.  If  you  want  an  arpeggio  to 
run  throughout  a  piece  of  music,  you  can  play  it  once,  then 
use  a  "cut  and  paste"  function  to  replicate  it  throughout.  If 
you  decide  to  rearrange  a  composition  after 
getting  it  into  the  sequencer,  you  can  move  or  transpose 
entire  sections  as  needed.  (These  functions  are  actually  a 
part  of  the  music  composition  program  being  used,  but 
without  MIDI  you  would  be  limited  to  either  hearing  the  music 
via  the  program's  internal  voices  or  playing  the  piece  manually 
on  your  synthesizer  until  you  got  it  right.) 

With  a  computer  acting  as  a  MIDI  sequencer,  you  also  have 
the  advantage  of  multi-tracking.  With  two  synthesizers  you 
can  record  a  bass  part  on  one  track,  then  listen  to  the  bass 
track  while  recording  a  rhythm  track.  Each  track  which  you 
"lay  down"  in  this  manner  is  totally  independent  of  the  others. 
Using  this  layering  technique  you  can  literally  become  a  one 
man  band,  limited  only  by  the  number  of  synthesizers  you 
own. 

At  this  point  I  expect  at  least  a  few  of  you  are  protesting.  'I 
just  bought  the  computer,  now  you're  telling  me  to  buy  a 
bunch  of  synthesizers?"  No,  not  at  all.  But  remember,  MIDI  is 
a  system  for  COMMUNICATIONS.  An  RS232  port  is  useless 
unless  you  have  a  modem  or  serial  printer  or  SOMETHING  to 
talk  to;  so  it  is  with  MIDI.  If  you're  not  interested  in  controlling 
electronic  music  instruments,  if  the  internal  sound  capabilities 
of  the  Amiga  are  sufficient  for  you,  then  you  will  not  be 
interested  in  MIDI. 

If  you  dream  of  setting  up  your  own  electronic  music  studio 
however,  look  at  the  cost  advantages  of  MIDI.  Without  it,  you 
can  produce  eight  part  music  with  only  one  synthesizer  and 
an  eight  track  recorder,  with  complete  control  over  the  final 
mixdown.  But  even  the  least  expensive  eight  track  format  - 
-quarter  inch  -will  cost  you  at  least  $1500  discounted  for  the 
deck  alone.  Then  you  need  a  mixer  and  at  least  one 
synthesizer,  and... 

On  the  flip  side,  four  track  cassette  decks  are  currently 

available  for  about  $600  retail,  which  means  you'll  probably 
be  able  to  buy  them  discounted  for  about  $300  very  soon. 
MIDI  synthesizers  are  getting  cheaper  all  the  time;  I  have 
seen  the  Casio  CZ101  for  $250  discounted,  and  the  Yamaha 
DX-100  is  readily  available  for  less  than  $400.  With  a  four 
track  deck,  MlDI/tape  sync  interface,  sequencer  program,  and 
two  synthesizers,  you  can  create  the  same  "eight  track"  final 
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product.  We'll  get  into  the  details  of  this  in  another  article; 
suffice  to  say  that  you  can  save  quite  a  bit  of  money  this  way  if 
you  already  own  the  computer. 

MIDI  can  also  do  housekeeping  for  you.  Every  synthesizer  is 
limited  in  the  number  of  voices  you  can  store  in  it  (with 
instruments  like  Yamaha's  DX-7,  where  the  storage  is  on  RAM 
cartridges,  the  limiting  factor  is  the  pocketbook:  those 
cartridges  can  cost  upwards  of  $100  each).  With  a  MIDI 
librarian  program,  you  can  store  your  sound  patches  on  disk 
and  load  them  into  the  synthesizer  a  voice  or  bank  at  a  time. 
Programming  synthesizers  through  the  tiny  LCD  or  LED 
■window"  provided  is  difficult  at  limes.  A  patch  editor  allows 
you  to  use  your  computer  to  program  the  instrument,  viewing 
an  entire  screen  of  information  at  one  time. 

For  live  acts,  your  computer  can  coordinate  the  entire  show. 
MIDI  doesnt  stop  at  keyboard  instruments...  there  are  MIDI 
controlled  mixers,  effects  boxes,  amplifiers,  lighting 
controllers,  drum  machines,  and  more.  MIDI  can  bring  them 
all  together! 

The  key  to  this  versatility  is  the  fact  that  MIDI  handles  DATA, 
not  sound;  rather  than  recording  musical  tones,  a  MIDI 
system  stores  information  about  what  note  is  played  on  which 
instrument  when  and  for  how  long. 

Now  to  delve  a  little  deeper.  Like  RS232,  MIDI  is  both  a 
hardware  and  a  software  standard.  Let's  take  a  look  al  the 
hard  ware  aspect  s  of  M I D I . 


MIDI  HARDWARE 

A  MIDI  connection  is  made  with  a  multi-wire  shielded  cable 
less  than  50  feet  in  length  and  terminated  with  five-pin  DIN 
connectors.  DIN  connectors  are  those  strange  multi-pin 
connectors  one  sometimes  finds  on  the  back  of  expensive 
receivers  and  open  reel  decks;  similar  connectors  are  found 
on  the  Commodore  64  and  Tandy  Model  1 00. 

DIN  connectors  have  been  accepted  in  Europe  for  years,  and 
were  chosen  for  MIDI  because  they  provided  a  relatively 
inexpensive  yet  reliable  multi-pin  connection.  (For 
manufacturers  desiring  even  higher  quality,  the  MIDI  spec 
allows  substitution  of  XLR  connectors  if  the  manufacturer 
also  supplies  appropriate  adapters  with  the  equipment.) 

The  five  pins  of  a  MIDI  DIN  connector  are  arranged  in  a  semi- 
circle and  are  surrounded  by  a  metal  shell  with  an  indexing 
notch.  The  center  pin  is  a  ground  and  is  connected  to  the 
cable  shield,  while  the  two  outermost  pins  are  not  used;  this 
leaves  two  pins  to  carry  signals.  A  logical  person  would 
assume  that,  like  RS232,  these  two  pins  carry  transmit  and 
receive  data.  Our  logical  person  would  be  wrong!  MIDI 
technology  reaches  back  to  the  days  of  the  teletype:  it  is  in 
fact  a  five  milliamp  current  loop  which  requires  two  wires  to 
transmit  data. 

Now  why  on  Earth  would  designers  of  a  modern  high- 
technology  interface  choose  such  an  antiquated  technique? 
The  answer  is  three-fold  and  relates  to  one  very  simple  fact: 
MIDI  was  designed  as  an  inexpensive  interface  tor  musical 
instruments. 


The  first  reason  for  a  current  loop  interface  is  noise  rejection. 
Anyone  who  has  performed  in  an  "electric"  band  knows  how 
various  buzzes,  clicks,  and  hums  can  work  their  way  into  an 
audio  system.  The  same  random  signals  which  simply  cause 
irritating  noises  on  the  audio  lines  would  play  havoc  with  a 
digital  control  system  like  MIDI.  A  current  loop  is  a  low 
impedance  system,  and  as  such  is  very  resistant  to  external 
interference. 

The  second  reason  for  choosing  a  current  loop  is  closely 
related  to  the  first:  isolation.  Performers  in  that  same  live 
band  will  tell  you  thai  singing  through  an  amplifier  with  a 
different  ground  polarity  from  the  guitar  amplifier  they  are 
using  can  be  a  literally  shocking  experience.  In  addition  to 
the  potential  damage  to  sensitive  digital  equipment,  ground 
loops  of  this  sort  are  responsible  for  many  of  the  hum 
problems  encountered  during  an  audio  engineer's  career.  A 
properly  designed  current  loop  like  that  used  by  MIDI  can 
allow  complete  isolation  between  various  instruments. 

The  third  reason  for  the  MIDI  current  loop  is  one  of  cost. 
Rather  than  requiring  line  drivers  or  level  shifters,  the  MIDI 
current  loop  can  be  driven  by  a  simple  transistor  or  TTL  gate. 
Isolation  on  the  receiving  end  is  provided  by  the  only 
potentially  high  cost  component:  an  optoisolator.  In  fact,  a 
complete  MIDI  interface  for  a  UART  port  can  be  built  with  only 
six  components:  a  TTL  or  transistor  driver  stage,  an 
optoisolator  input  stage,  three  current  limiting  resistors,  and  a 
protection  diode!  It  would  be  difficult  to  develop  a  more 
straightforward  interface  providing  all  the  benefits  of  the  MIDI 
current  loop. 

MIDI  data  is  transmitted  serially  at  a  rate  of  31 .25  KBaud,  or 
31,250  bits  per  second.  Those  ol  you  who  know  baud  rates 
will  recognize  this  as  a  very  non-standard  speed.  With  the 
exception  of  very  old  equipment,  all  standard  baud  rates  are 
multiples  of  300  baud:  300,  600,  1200,  1800,  2400,  4800, 
9600,  and  19200  are  most  often  seen.  Why  an  oddball  baud 
rate?  As  with  the  current  loop,  a  close  examination  reveals 
sound  reasoning. 

For  example,  why  should  MIDI  use  a  "standard"  baud  rate? 
MIDI  has  nothing  to  do  with  RS232  communications.  In  (act, 
using  one  of  these  data  rates  almost  forces  us  to  use  a 
dedicated  "baud  rate  generator"...  an  unnaeded  expense. 
31.25  Kbaud  was  chosen  primarily  because  it  is  easily 
derived  from  most  computer  system  clocks.  In  other  words, 
divide  one  MHz  by  32  and  you  get  31.25  Khzl  For  a  two  MHz 
clock  one  would  divide  by  64,  and  so  on.  Dividing  by  a  power 
of  two  is  trivially  easy,  and  in  some  cases  these  signals  are 
already  available  elsewhere  in  the  system.  31.25  Kbaud  was 
also  chosen  because  it  is  the  highest  'easily  derived"  data 
rate  less  than  50  Kbaud.  The  latter  figure  is  the  practical 
upper  limit  for  some  of  the  components  which  might  be  used 
in  the  design  of  a  MIDI  port. 

As  mentioned  earlier,  MIDI  data  Is  transmitted  serially.  The 
format  is  a  ten  bit  word  with  one  start  bit.  8  data  bits,  and  one 
stop  bit.  Unlike  the  baud  rate,  this  is  a  very  standard  format. 
A  MIDI  port  can  therefore  be  driven  by  a  plain  vanilla  serial 
device  such  as  a  UARTor  ACIA. 
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IS  THE  ATARI  ST  ONE  UP  ON  THE  AMIGA? 

Before  we  delve  into  the  software  aspect  of  MIDI,  let's  take  a 
moment  to  discuss  Amiga  vs.  Atari  vs.  everybody  else. 

The  Atari  520ST  and  1040ST  both  have  built-in  MIDI  ports, 
and  Atari  fans  like  to  point  that  out  when  engaged  in  a  "fVly 
computer  is  best"  battle.  True,  the  Amiga  does  not  have  a 
built-in  MIDI  port,  but  let's  examine  why  this  is  not  as  serious  a 
problem  as  it  could  be. 

Tfie  main  difficulty  for  computers  without  MIDI  ports  is  the  non- 
standard baud  rate.  In  most  cases,  Ihe  standard  serial  ports 
provided  are  simply  not  capable  of  communicating  at  31.25 
Kbaud.  With  the  Amiga,  this  is  not  the  case.  The  designers 
knew  that  MIDI  was  an  important  issue,  and  designed  the 
serial  port  to  support  the  required  baud  rate.  In  fact,  pre- 
release versions  of  the  Preferences  program  included  a  serial 
port  baud  rate  designated  as  "MIDI":  31.25  Kbaud.  The 
current  version  of  Preferences  does  not  include  this 
selection,  but  the  Amiga  still  supports  it. 

(I  am  told  that  the  Preferences  to  be  shipped  with  AmigaDOS 
version  1.2  once  again  includes  the  31,250  baud  setting.) 
(The  version  1.2  Preferences  does  restore  the  MIDI  baud 
rate  setting.  In  fact,  it  has  another  screen  in  Preferences  to 
allow  other  serial  settings  as  well,  such  as  7  or  8  bits,  parity, 
stop  bits,  etc.,  beyond  the  simple  baud  rate  setting  in  the  1.0 
and  1.1  Preferences.) 

With  the  baud  rate  hurdle  behind  us,  the  only  requirement  is 
a  simple  interface  which  converts  RS232  signals  to  and  from 
MIDI  signals.  This  interface  is  almost  trivially  simple,  and  can 
be  built  with  a  handful  of  components.  There  are  easily  a  half 
dozen  manufacturers  developing  MIDI  interfaces  which 
simply  plug  into  the  serial  port;  most  will  retail  for  around  $50. 


MIDI  SOFTWARE 

The  software  portion  of  the  MIDI  spec  is  as  straightforward 
and  well  thought  out  as  the  hardware.  MIDI  communication  is 
based  on  the  message.  All  MIDI  message  bytes  fall  into  one 
of  two  categories:  status  or  data.  A  status  byte  always  has  its 
most  significant  bit  (MSB)  set;  a  data  byte  always  has  a  zero 
MSB. 

(Immediately  we  have  gained  an  advantage:  simplicity  of 
programming,  Rather  than  keeping  data  counters  and 
worrying  about  resyncing  in  the  case  of  lost  data,  our  status 
bytes  are  always  distinguishable  from  data.  And  we  can  even 
transmit  messages  within  messages.) 

A  message  is  typically  a  status  byte  followed  by  one  or  more 
data  bytes.  There  are  several  types  of  messages:  channel 
system,  common  system,  real-time,  and  system  exclusive. 


MIDI  IS  HERE ! 


Midi-Designs  Is  Proud  To  Introduce  The 

MD-1  Midi  Interface  For  The  Commodore  Amiga. 

Features  Include: 

•  IN,  OUT,  THROUGH  jacks  lor 
sending  and  receiving  data 

■  Attractive  custom  melal  enclosure 

■  1  year  warranty 

•  100%  compatible  wilh  Ariivisron's 
Music  Studio  '"  Soitware  and  all 
popular  synttiesizers  including 
tliose  manutactufed  by  Roland. 
Yamatia.  Casio  and  Korg. 

PRICE  $49-95 

MD-t  INTERFACES  ARE  IN  STOCK  FOR  IMMEDIATE  SHIPMENT 
For  Additional  Information  or  lo  Order,  write  or  call: 

MIDI-DESIGNS 
2232  Summit  Slreet 
Columbus,  OH  43201 
(614) 267-6755 
Dealer  Inquiries  invited 
Midi-Designs  is  a  division  o!  J.  Michaels  Company 


The  status  byte  of  a  channel  message  includes  a  four  bit 
number  in  the  lower  nibble  which  is  the  message's  channel, 
MIDI  devices  monitoring  the  data  stream  can  be  set  to 
respond  to  all  messages  or  only  the  messages  for  a  single 
channel.  Thus  we  can  connect  sixteen  devices  via  one  daisy- 
chained  cable  and  each  will  respond  independently. 

Wilh  the  MSB  set  to  one  indicating  a  status  byte  and  four  bits 
for  the  channel  number,  three  bits  are  left  to  encode  seven 
different  channel  messages.  These  messages  are  note  off, 
note  on,  polyphonic  aftertouch,  control  change  program, 
change  channel,  after  touch,  and  pitch  wheel  change. 
(Some  of  these  messages  are  self-explanatory  while  others 
are  probably  not  familiar  to  you.  Since  this  is  just  an  overview 
of  MIDI,  I'll  save  the  detailsfor  a  later  article.) 

Note  that  with  three  bits  there  are  eight,  not  seven,  passible 
bit  combinations.  The  eighth  combination  is  used  to  signal  a 
system  message.  System  messages  do  not  include  channel 
numbers;  the  lower  nibble  is  instead  used  to  indicate  the 
type  of  system  message. 


CHANNEL MESSAGES 

Channel  messages  are  generalized  pieces  of  information 
which  any  synthesizer  might  need  in  order  to  make  a  sound. 
such  as  key  depressions  and  patch  selection. 


SYSTEM  COMMON  MESSAGES 

System  common  messages  are  intended  for  all  devices  in  a 
MIDI  system,  and  encompass  general  purpose  data.  These 
messages  include  song  position  pointer  definition,  song 
selection,  and  tune  requests. 
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SYSTEM  REAL-TIME  MESSAGES 

System  real-time  messages  are  also  intended  for  all  devices 
in  a  MIDI  system,  and  deal  with  timing  of  events.  These 
messages  are  composed  solely  of  status  bytes.  For  this 
reason  they  can  be  interleaved  with  other  messages,  even 
appyearing  within  another  message's  data  stream.  Real-time 
messages  are  given  this  priority  because,  after  all,  liming  is 
everything.  The  real-time  message  group  includes  the  timing 
clock,  song  start,  song  continue,  and  song  stop. 


SYSTEM  EXCLUSIVE  MESSAGES 

These  messages  are  intended  for  specific  devices.  Unlike 
channel  messages,  reception  of  system  exclusive  messages 
is  based  on  the  device  hself  rather  than  channel  number.  For 
example,  a  system  exclusive  message  may  be  sent  to  all 
Yamaha  devices  in  a  system,  and  it  will  be  ignored  by  Casio  or 
Korg  machines.  Within  a  system  exclusive  message  all  bets 
are  off.  Such  a  message  might  be  a  bulk  digitized  audio 
dump,  a  patch  parameter  transfer,  or  any  function  unique  to 
one  manufacturer's  system.  Interpretation  of  the  data 
between  the  status  byte  and  EOX  (end-of-system-exclusive- 
message)  byte  is  the  sole  responsibility  of  the  receiving 
device. 


RECAP 

As  you  can  see,  the  MIDI  definition  is  well  structured  yet 
flexible.  Hardware  is  designed  to  be  cheap  and  rugged. 
Status  bytes  are  immediately  discernible  from  data.    Three 


groups  of  messages  encompass  song  parameter  setup, 
system  timing,  and  actual  song  execution,  while  a  fourth 
message  group  provides  a  manufacturer  the  ability  to 
implement  anything  not  already  included  in  the  spec. 

The  MIDI  spec  states  that  ils  purpose  is  to  "enable... 
synthesizers,  sequencers,  home  computers,  rhythm 
machines,  etc.  to  be  interconnected  through  a  standard 
interface",  and  all  in  all  it  does  its  job  well.  There  are 
problems,  but  they  are  for  the  most  part  minor  and  avoidable. 

MIDI  continues  to  become  a  unifying  force  in  the  fields  of 
computers  and  electronic  music.  Expect  to  see  further 
columns  on  the  wide  world  of  MIDI  and  its  applications. 

Until  next  month... 

Nybbles.  '■ 

Rick 


For  more  information  about  MIDI,  contact: 

International  MIDI  Association 

11 857  Hart  sook  Street 

North  Hollywood,  GA  91 607 

(818)  505-8964 
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NETCH  COMPUTER  PRODUCTS  ANNOUNCES: 

68881    FLOATING  POINT  COPROCESSOR  BOARD  for  ^  M  D  0  /^ 

FAST  -  ASYNCHRONOUS  68881  OPERATION  WITH  A  MAXIMUM  CLOCK  RATE  OF  16  5  MHz  II 

LOW  COST  DESIGN  -  USES  INEXPENSIVE  68010  CPU  EMULATING  68020  COPROCESSOR  INTERFACE  I 

UPWARD  SOFTWARE  COMPATIBLE  WITH  THE  68020  -ALL  SOFTWARE  DEVELOPED  FOR  THIS  BOARD 

WILL  RUN  ON  68020  SYSTEMS  (This  is  a  low  cost  way  of  entering  the  68020  market) 
EXPANSION  BOX  NOT  REQUIRED  -  INTERNAL  PIGGYBACK  CONFIGURATION  REPLACES  68000  CPU 
SPEED  INCREASE  OF  300%  TO  500%  OR  MORE  FOR  MATH  INTENSIVE  PROGRAMS  I 
COMPLETE  SOFTWARE  PACKAGE  INCLUDED  WITH  ONE  YEAR  OF  FREE  UPDATES  (+  handlino  charael 

BUNDLED  SOFTWARE:    Emulator,   Manx/Aztec  C  and  Lattice  C  Floating  Point  Libraries 

Assembler  Tools  (Allow  Motorola  Floating  Point  mnemonics  to  be  freely 
mixed  with  68000  code  and  assembled  with  standard  AMIGA  assemblers) 
substitute  for  Motorola  Fast  Floating  Point  software  library 
Fortran,   Scientific  Library  (FFT,  Matrix  Algebra,  etc.).   and  other  languages. 


PLANNED  SUPPORT: 


INTTRODUCTORY  PRICING: 

cdm'I  Bare  Board.  Software.  Documentation  and  Manual,  parts  list  $149 

FPU '-^  A!f  ""K^^  ^"^  l^^^^i  "i'l!°"*  ^^^^^  '^^"^  C^^'P-  Software,  Manual  $269 

FPU-3  Assembled  and  Tested  with  68881  Math  Chip.  Software.  Manual  $459 


Send  orders  to; 


68010 


NCP 

PO  Box  645 

Monrovia,  CA  91016 

(818)334-1002 

A(W  t3.0a  for  (hipping  t  handling.  Ptymwil 

•twukl  b*  by  chtck  er  Monty  Qnimr.  Calltomia 
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by  Bryan  D.  Catley 


When  you  sit  down  in  a  restaurant,  the  menu  you  receive  is 
invariably  a  direct  reflection  of  the  quality  of  the  restaurant 
itself.  So  too  is  the  case  with  menu-driven  programs;  they 
are  a  direct  reflection  of  the  overall  quality  of  those  programs 
which  employ  Ihem. 

As  you  are  probably  aware,  Amiga  Basic  gives  you  full 
access  to  the  pull-down  menus  available  to  the  Amiga,  and 
allows  you  to  establish  your  own  menus,  which  you  control 
directly  from  your  program.  And  that  is  exactly  what  this 
tutorial  and  the  accompanying  program  will  show  you  how  to 
do!  You  will  learn  to: 

-establish  your  own  menus 
-set  up  a  menu  interrupt  routine,  and  turn  it  on 
-enable  and  disable  items  on  (he  menu 
-insert  a  checkmark  next  to  the  selected  item 
-enable  a  menu  item  only  after  certain  other  events 
have  occured 

-turn  off  the  menu  interrupt  routine,  and  restore 
thel  standard  Amiga  Basic  menus 

Further,  an  expansion  of  the  accompanying  program  will  be 
suggested  which  will  provide  an  ideal  first  "hands-on" 
experience  with  custom  menus. 

Please  read  this  article  completely,  and  examine  the 
program  listing  before  you  actually  enter  it;  and  when  you  do, 
be  sure  and  save  a  copy  before  you  execute  It  for  the  first 
time. 


The  Menu  Demonstration  Program 

This  program  is  completely  menu  driven.  When  you  use  it, 
you  will  be  presented  with  a  header  screen,  and  nothing  else 
will  happen  until  you  select  a  menu  item. 

Pressing  the  right  mouse  button  will  reveal  a  new  set  of  three 

menu  titles:  "Boxes',  "Polygons",  and  "Run".  Moving  the 
pointer  on  top  oi  any  one  of  them  (while  keeping  the  right 
button  pressed)  will  reveal  the  associated  "pull-down"  menu 
list.  Ivlove  the  pointer  up  and  down  on  the  list,  and  note  how 
the  enabled  items  are  highlighted.  When  the  desired  item  is 
highlighted,  release  the  right  button  to  select  it. 

Boxes.  This  menu  allows  you  to  open  a  window,  and  fill  it 
with  continually  changing  squares  or  oblongs  in  randomly 
selected  colors.  There  are  also  items  to  clear  and  close  the 
window. 

Additionally,  you  may  also  move  the  Window  around  the 
screen  by  using  the  standard  "Drag  Bar". 


Polygons.  This  menu  provides  similar  features  to  the  Boxes 
menu,  except  the  shapes  are  triangles,  or  are  randomly 
created  with  up  to  eight  sides. 

Run.  This  menu  has  a  single  item:  Quit.  Selecting  this 
terminates  the  program  and  returns  you  to  Basic,  Note  that 
"Quit"  is  only  enabled  when  both  the  "Boxes"  and  "Polygons" 
windows  are  closed. 

Overview  of  Custom  Menu  Handling 
Setting  up  and  using  your  own  custom  menus  is  really  quite 
simple,  and  entails  the  following  steps: 
-set  up  your  custom  menus 
-turn  them  on  and  advise  Basic  of  the  name  of  the 

routine  to  receive  control  when  a  menu  item  is 

selected 
-continue  processing,  or  wait  for  3  menu  item  to  be 

selected 
-when  a  menu  item  is  selected,  the  interrupt  routine 

determines  the  item  selected,  sets  appropriate 

indicators,  and  returns  to  the  main  program 
-the  main  program  examines  the  indicators  and 

takes  appropriate  action 
-when  no  longer  required,  the  custom  menus  are 

turned  off,  and  the  standard  Amiga  Basic  menus 

are  restored 

That's  all  there  is  to  it!  Now  let's  take  a  closer  look  at  how  we 
can  accomplish  all  this. 

Establishing  Your  Custom  Menus 

Look  at  the  first  (initialization)  part  of  the  program;  you  will 
see  a  number  of  MENU  statements,  tt  is  these  statements 
which  define  the  menus  that  are  going  to  be  used  by  the 
program.  (This  statement  is  also  used  to  modify  the  status  of 
existing  items).  The  format  is: 

MENU  number,item,mode[,"tltIe"  ] 

number  is  the  number  of  the  menu  being  referenced. 
Numbers  start  at  one  and  go  from  left  to  right  across  the 
screen.  In  the  standard  menu  set,  "Project"  is  one,  and 
"Output"  is  four 

item  is  the  number  of  the  item  within  the  menu.  They  start  at 
zero  (for  the  menu  title  box),  and  go  up  by  one  for  each  item 
in  the  menu.  In  the  standard  "Project"  menu,  "New"  is  one, 
and  "Quit"  is  five 

mode  defines  the  desired  status  of  the  menu  item;  it  may  be 
0,1, or  2. 
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Your  Menu.  Siil         ^=^^=^^^^^^^^= 

0  item  is  disabled;  i.e.  it  may  not  be  selected,  if  zero  is 
selected  for  item  zero,  (the  menu  title),  the  entire  menu  is 
disabled  regardless  of  the  setting  o1  individual  items  within 
that  menu 

1  Item  is  enabled;  i.e.  it  may  be  selected 

2  As  for  1,  except  a  checkmark  is  placed  in  the  item  box 
whan  it  is  selected 

"title"  is  the  text  that  is  to  appear  in  the  menu  box.  If  you 
plan  on  using  mode  2,  you  must  leave  two  spaces  to  the  left 
of  the  text.  This  is  omitted  when  modifying  the  status  o1  an 
existing  menu  item 

Looking  at  our  MENU  statements,  you  will  see  that  all  our 
custom  menus  are  fully  defined,  tiiul  only  the  "Quit"  and 
"Open"  items  are  enabled.  This  is  because,  initially,  they  are 
the  only  valid  selections.  Also,  note  that  we  have  defined 
three  menus  that  will  replace  the  first  three  standard  menus. 
However,  the  fourth  standard  menu  (Output)  would  still  be 
displayed,  so  we  turn  it  off  with  the  final  MENU  statement 
that  contains  a  null  title. 

Finally,  we  use  the  "MENU  ON"  statement  to  teil  Basic  to 
start  using  the  custom  menus,  and  the  "ON  MENU  G0SU8 
...."  statement  is  used  to  identify  the  subroutine  to  be  given 
control  when  a  menu  item  is  selected.  Both  statements  must 
be  issued  before  the  custom  menus  may  be  used,  but  they 
do  not,  necessarily,  have  to  be  adjacent. 

The  Menu  Interrupt  Subroutine 

Once  menu  trapping  has  been  turned  on,  this  is  the 
subroutine  that  will  automatically  receive  control  when  any 
menu  item  is  selected.  And  it  is  a  genuine  subroutine  that 
ends  with  a  RETURN  statement!  When  it  terminates,  control 
is  always  returned  to  the  statement  following  the  one  being 
executed  when  the  menu  item  was  selected.  It  is  just  as  if 
you  had  inserted  the  following  piece  of  code  between  each 
statement  in  the  program:  "IF  MENU(0)<>0  THEN  GOSUB 
RtnName".  Note  that  Basic  temporarily  turns  off  menu 
trapping  while  in  the  interrupt  routine,  so  recursive  menu 
traps  are  impossible. 

When  first  entered,  we  use  the  functions  MENU(O)  and 
MENU(1)  to  determine  the  selected  menu  and  menu  item 
respectively.  (MENU(O)  is  reset  to  zero  each  time  it 
executes  so  you  may  poll  it,  if  desired,  much  as  you  might 
poll  INKEY$).  Now  that  we  have  these  two  values,  it 
becomes  very  easy  to  direct  the  program  flow  by  using  the 
"ON  ...  GOTO  ..."  statement;  once  (or  the  menu,  and  once 
for  the  item. 

If  an  "Open"  item  was  selected,  the  first  thing  that  is  done  is 
to  disable  the  "Open"  item  (no  longer  a  valid  request),  and 
enable  all  the  other  items  (they  are  now  perfectly  valid 
requests).  Further,  the  variable  "opncount"  (previously 
initialized  to  zero)  is  incremented  by  one.  If  it  is  then  equal 
to  one,  the  "Quit"  menu  item  under4  5"Run"  is  disabled.  This 
prevents  the  user  from  terminating  the  program  while  any 
windows  are  still  open. 

Selecting  a  "Close"  item  essentially  reverses  the  "Open" 
processing.  The  "Open"  item  is  enabled  while  the  others  are 


disabled,  "opncount"  is  decremented  by  one,  and  the  "Quit" 
item  is  enabled  when  it  becomes  zero.  The  user  is  now  able 
to  select  "Open"  again  whenever  it  becomes  desirable. 

When  a  processing  item  {"Squares",  "3  Sided",  etc)  is 
chosen,  the  selected  Kem  is  enabled  with  a  checkmark, 
while  its  partner  is  enabled  with  no  checkmark;  (remember,  it 
is  still  a  valid  selection).  Additionally,  the  window  containing 
the  selected  shapes  is  made  the  current  window,  (thereby 
forcing  it  to  the  front). 

Should  "Clear"  be  selected,  the  window  is  made  current  and 
cleared,  and  both  processing  options  are  enabled  with  no 
checkmarks. 

The  most  important  things  of  all  to  note  are  that  each 
processing  option  ends  up  by  setting  the  variable  "type"  to 
an  appropriate  value,  and  that  the  variable  "sw"  is  set  to  one 
just  before  the  RETURN  is  executed.  The  contents  of  these 
two  variables  allow  the  main  body  o(  the  program  to  detect 
that  a  menu  item  has  been  selected,  and  carry  on  as 
appropriate  for  the  item  selected. 

"type"  essentially  tells  the  main  program  to  wait  for  another 
menu  selection  {via  the  SLEEP  statement)  or  to  do  some 
specific  processing;  draw  boxes,  polygons,  etc. 

"sw"  allows  the  draw  routines  to  discover  that  another  menu 
item  has  been  selected,  to  know  that  it  is  time  to  stop  the 
current  processing,  and  to  proceed  next  as  appropriate,  via 
"type". 

The  Main  Program  Body 

Here,  the  routines  within  the  main  program  body  are 
executed  as  a  direct  result  of  the  menu  selection  {via  the 
"type"  variable). 

If  it's  appropriate  to  wait  for  the  next  menu  selection,  "type" 
directs  the  program  to  "WaitRtn"  which  uses  the  SLEEP 
statement  to  wait  for  the  next  menu  selection.  (Note  that 
SLEEP  may  also  be  used  to  wait  for  MOUSE  events,  if  you 
have  also  included  a  MOUSE  interrupt  routine  within  your 
program). 

If  some  form  of  processing  is  required,  the  processing 
routine  only  maintains  control  until  another  menu  item  has 
been  selected,  (via  "WHILE  sw=0  ...  WEND").  If  you 
remember,  the  variable  "sw"  is  set  to  zero  just  before  the 
routine  is  given  control;  and  the  only  way  it  can  be  changed 
is  via  the  menu  interrupt  routine.  In  this  example,  it  is  true 
for  the  routines  that  draw  the  various  patterns  on  the  screen; 
they  simply  keep  executing  until  "sw"  changes  value! 

You  will  undoubtedly  notice  that  the  only  way  "QuitRtn"  can 
be  reached  is  when  the  user  selects  "Quit"  under  the  "Run" 
menu,  (and  only  after  they  have  closed  the  other  windows  at 
that)! 

On  Interrupt  Routines  In  General 

Now,  if  you  are  not  used  to  the  concept  of  interrupt  routines, 
this  may  all  seem  a  little  strange,  but  study  the  program" 
carefully.  It  is  really  very  simple  {though  a  little  different), 
and  I'm  sure  you  will  get  the  hang  of  it  very  quickly. 
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Your  Mt'iiii.  Sir! 


It  is  important  for  two  reasons.  First,  interrupt  routines  may 
also  be  used  to  handle  mouse  "clicking";  and  secondly,  to 
gain  control  whenever  an  error  occurs.  You  should  already 
be  beginning  to  see  the  possibilities  of  using  interrupt 
routines  in  your  programs. 

However,  if  you  are  still  having  problems  seeing  their 
importance,  consider  the  operating  system  that  is  driving 
your  Amiga.  It  functions  almost  solely  on  interrupts;  for  one 
thing,  that's  how  it  handles  multitasking.  Each  time  an 
interrupt  (and  the  possible  interrupts  that  it  may  encounter 
far  exceed  anything  we  have  discussed  here)  occurs,  it 
gives  control  to  the  next  task  on  its  "task  list".  This  task 
then  maintains  control  until  the  next  interrupt  occurs,  when 
the  next  task  receives  control,  and  so  on  as  long  as  there 
are  tasks  to  service! 

Understanding  them  is  important  because  while  they  will  not 
be  needed  in  many  programs,  occasionally  you  will  be  able  to 
make  really  effective  use  of  them. 

An  Extension  Exercise 

As  a  first  exposure  to  using  interrupts,  why  not  try  a  simple 
expansion  to  this  program?  Once  you  understand  how  it 
functions,  just  add  a  third  window  in  which  to  draw  circles 
and  ovals!  Tlie  code  necessary  to  do  this  is,  for  the  most 
part,  a  duplication  of  code  that  already  exists;  (the  polygon 
code  is  essentially  a  duplication  of  the  boxes  code).  While 
not  essential,  one  thing  you  should  do  is  to  make  the 
"Circles"  menu  the  third  one,  and  move  the  "Run"  menu  to 
position  number  four.  (Remember,  the  menu  is  a  direct 
reflection!) 

A  coupie  of  final  notes.  When  using  custom  menus,  it  is  not 
mandatory  to  use  an  interrupt  routine.  There  is  nothing 
wrong  with  using  "x=0:WHILE  x=0:x=MENU(O):WEND"to  wait 
for  a  menu  selection.  In  some  cases  It  may  even  be  the 
most  appropriate  method;  but  it  does  not  provide  a  great  deal 
of  flexibility,  it  frequently  requires  a  lot  of  duplicated  code, 
modifications  will  become  increasingly  complicated  and  CPU 
cycles  are  being  used  continually. 

There  are  also  a  couple  of  other  statements  that  may  be 
used  when  processing  custom  menus  which  we  have  not 
discussed.  They  simply  provide  even  more  flexibility,  and 
you  may  find  out  about  them  in  your  Amiga  Basic  manual. 

Well,  I  trust  you  have  found  this  little  excercise  interesting, 
and  that  you  are  now  familiar  enough  with  custom  menus  and 
interrupt  routines  to  try  them  in  your  own  programs.  They  do 
require  a  slightly  different  thought  process  (if  you  use  the 
interrupt  approach}  in  the  design  of  your  programs,  but  they 
provide  a  tremendous  amount  of  flexibility.  They  also 
remove  the  need  for  you  to  supply  your  own  error  checking 
and  handling  code  -  it's  all  built  in! 

One  more  door  has  been  opened! 

'  Amiga  Basic  Menu  Demonstration  Program 
'  Version  1.0   by  Bryan  D.  Catley 

'CLEAR:  RANDOMIZE  TIMER 

SCREEN  1,320,200,4,1 

WINDOW  2, "Menu  Examples :",, IG, 1 

COLOR   3, 2:CLS 


MENU 

1 

0 

1, 

"Boxes" 

^ENU 

1 

1 

1, 

"Open" 

MENU 

1 

2 

0, 

Square" 

MENU 

1 

3 

0, 

Oblong" 

MENU 

1 

4 

0, 

"Clear" 

MENU 

1 

5 

0, 

"Close" 

MENU 

2 

0 

1, 

"Polygons" 

MENU 

2 

1 

1, 

"Open" 

MENU 

2 

2 

0, 

"   3  Sides 

MENU 

2 

3 

0, 

Random" 

MENU 

2 

4 

0, 

"Clear" 

MENU 

2 

5 

0, 

"Close" 

MENU 

3 

0 

1, 

"Run" 

gram 
V   i   a" 


Control" 


MENU   3.1,1,  "Quit" 

MENU    4,0,0,  "" 

LOCATE  7, 6: PRINT "P  r 

LOCATE  9,15:PRINT"i  s 

LOCATE  11,16:PRINT"M  E  N  U  S" 

LOCATE  16,e:PRINT" (Use  Right  Mouse  Button)." 

MEND  ON: ON  MENU  GOSUB  Menuint 

opncount=0 ; type=2 

■  Perform  Routine  Hecessacy  as  a  Result  of  Menu 

Slection  ' 

DoMenu: 

BW=0 

ON  type  GOTO 

QuitRtn, WaitRtn, BoxesRtn, BoxesRtn, PolyRtn, PolyRtn 

HaitRtn: 

SLEEP: GOTO  DoMenu 

BoxesRtn:  r . 

WHILE  sw=0 

windwid=WINDOW  ( 2 )  :  windhit=WINDOW  ( 3  > 
bxl=INT  <RND*windwid)  -1  :bx2=INT  (RND*wiiidhit)  -1 
x=windwid-bxl : y=windhit-bx2 
col=INT{RND*15) 
IF  type=3  THEN 
IF  x>y  THEN  x=y 
bx3=INT (RND*x) 

IF  sw=0  THEN  LINE (bxl,bx2) -STEP {bx3,bx3) , col, bf 
ELSE 

bx3=INT (RHD*x) : bx4=INT (RND*y> 

IF  sw=0  THEN  LINE  (bxl,bx2) -STEP  {bx3,bx4)  ,  col, bf 
END  IF 

FOR  n=l  TO  S0O:NEXT 
WEND 
GOTO  DoMenu 

PolyRtn: 
WHILE  6W=0 

windwid=WIND0W(2) :windhit=WIND0W(3) 
IF  type=5  THEN  n=3 
IF  type=6  THEN  n=INT (RND*5) +3 
FOR  m=l  TO  n 

x=INT (RND*windwid) -1 : y=INT (RND*windhit) -1 
IF  x<l  THEN  x=l 
IF  y<l  THEN  y=l 
AREA  (x,  y) 
NEXT 

IF  sw=0  THEN  COLOR  INT  (RND*15)  :AREAFILL 
FOR  n=l  TO  500: NEXT 
WEND 
GOTO  DoMenu 

QuitRtn: 

MENU  OFF: MENU  RESET 

WINDOW  CLOSE  2 : SCREEN  CLOSE  1 

END 
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Your  Menu,  Sir!    =^^^=^^?^=^== 

'  TbiB  1b  the  Menu  Interirupt  Routine.  It 
Automatically 
'  Receives  Control  when  a  Menu  Selection  Is  Made 


Menuint : 

menuO=HENU(0)  :inanul=MEND<l) 

ON  menuO   GOTO  MrSoxes.MIPolys,  MIRun 

MIBQX6E : 

ON  menul  GOTO  MIBxOpn, MIBxSq.MIBxOb, MIBxClr,MIBxCls 

MIBxOpn : 

MENU  1,1,0:MENU  l,2,l:hEKU  1,3,1:MENU  1,4,1:HENU  1,5 

WINDOW  3,  "Boxes:",  (S, S) - (232, 120) ,22, 1 

wind3col=INT(RND*15) :COLOR  , wind3col :CLS 

opncount=opncount+l:IF  opncount=l  THEN  MENU  3,1,0 

type=2:G0T0  MIExit 

MIBxSq: 

MENU  l,2,2:MENn  1,3,1 

WINDOW  3 

type=3:G0T0  MIExit 

MIBxOb : 

MENU  1,2,1:MEKU  1,3,2 

WINDOW  3 

type=4:G0T0  MIExit 

MIBxClr: 

MENU  1,2,1:MEKU  1,3,2 

WINDOW  3 : COLOR  , wind3  c  o 1 : CLS 

tYpe=2:G0TG  MIExit 

MIBxCls: 

MENU  l,l,l:MENa  1,2,0:MENU  1,3,0:MENU  1,4,0:MENU  1,5 

WINDOW  CLOSE  3 

opncount=opncount-l:IF  opncount<l  THEN  MENU  3,1,1 

type=2:G0T0  MIExit 


MlPolye: 
ON  menul  GOTO 

MlPyOpn,  MlPySSide,  MIPyRnd,  MlPyClr,  MlPyCls 
MlPyOpn : 

MENU  2,1,0:MENU  2,2,1:MENU  2,3,1:MENU  2,4,1:MENU  2,5,1 
WINDOW  4,  "Polygons:",  {48,56)-(296,168),22,l 
wind4col=INT(RND*lS) :C0L0R  , wind4col :CLS 
opncount=opncount+l : IF  opncount=l  THEN  MEND  3,1,0 
type=2:G0TO  MIExit 
MIPy3Sida : 
iMENU  2,2,2:MENU  2,3,1 
WINDOW  4 

typa=5:G0T0  MIExit 
MIPyRnd: 

MENU  2,2,1:MENU  2,3,2 
WINDOW  4 

type=6:G0T0  MIExit 
MlPyClr: 

MENU  2,2, 1:MENU  2,3,2 
WINDOW  4 : COLOR  , wind4col : CLS 
type=2:G0T0  MIExit 
MlPyCls: 

MENU  2,1,1:MEND  2,2,0:MENU  2, 3, 0 :MENU  2,4,0:MENU  2,5,0 
WINDOW  CLOSE  4 

opncount=opncount-l:IF  opnoount<l  THEN  MENU  3,1,1 
typo=2:GOTO  MIExit 

MIRun : 
Q  ON  menul  GOTO  MIRunQult 
MIRunQuit : 
type=l:GOTO  MIExit 


MIExit : 
BW=l:RETnRN 


•  AC* 


USERS  ONLINE    11 


AMERICAN 


PEOPLE 


Join  your   fellow  Amiga  Users   on  People/Link. 
Plink   is   a   low-cost,   high-quality  network 
accessible  via    the   Telenet   and   Tymnet  data 
networks. 

More    than   five   hundred    public   domain 

programs    are    available    for   downloading    froin 
our   voluminous    data    libraries. 

Also   very   popularj    you   can   find   as   many   as 
40   people    in   our   weekly  Amiga  conferences. 

To   receive   a   free   hour    tryout,    call   our   800 
modem  number   for    information. 

Customer  Information 

800-524-0100 
312-870-5200 


3215  N.  FRONTAGE  RD./SUiTE  1505 
ARLINGTON  HEIGHTS,  IL  60004-1437 


Amiga   is   t.   trademark   of  Commodore-Amiga,    Inc, 


*800-826-8855      (via  modem) 
*312-822-9712 
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IFF  Brush  to  AmigaBASIC 
•Bob'  Editor 


By  Michael  Swinger: 


I  bough!  my  Amiga  primarily  for  the  graphics  and  animation 
possibilities,  as  I  suspect  many  others  did,  and  planned  to 
write  my  own  applications  in  BASIC.  When  Amiga  Basic  was 
finally  released  in  December,  it  was  encouraging  to  see  that 
most  of  the  graphics  potential  could  be  tapped  in  BASIC.  On 
the  other  hand,  it  was  discouraging  thai  the  supplied  Object 
Editor  was  capable  of  creating  only  small,  primitive  shapes.  It 
proved  difficult  to  rewrite. 

Deluxe  Paint  was  released  at  about  the  same  time,  and  the 
first  thing  I  did  was  to  try  to  stick  an  IFF  file  created  in  Deluxe 
Paint  straight  into  the  BASIC  OBJECT.SHAPE  statements  - 
which  didn't  work,  of  course.  If  you  LIST  the  Object  Editor 
program,  the  vary  first  page  tells  you  the  format  of  the  file  it 
produces.  When  the  IFF  format  was  made  public  it  was  then 
possible  to  see  why  the  two  file  formats  were  incompatible, 
but  it  was  also  clear  that  they  both  contained  much  the  same 
information,  and  that  it  should  be  possible  to  convert  one 
format  into  the  other. 

The  listing  here  is  a  graphics  editor  in  Amiga  Basic.  It  will 
convert  Deluxe  Paint  files  into  the  same  format  as  that 
produced  by  the  BASIC  Object  Editor,  so  that  a  "brush- 
created  in  Deluxe  Paint  can  be  programmed  as  a  "BOB'  in 
AmigaBasic,  using  the  OBJECT.SHAPE  commands. 

1  wrote  the  editor  for  my  own  use.  It  has  several  limitations: 
One,  the  brush  file  cannot  be  compressed,  so  that  the 
maximum  size  of  a  bob  is  around  40  pixels  wide  by  90  pixels 
tall.  If  the  brush  is  larger,  the  bit  map  will  be  compressed, 
since  it  lakes  up  too  much  space.  Two,  although  the  brush 
file  contains  the  color  information  for  the  PALETTE 
statements,  it  will  not  be  written  out 

So  that  you  can  refine  and  improve  this  editor,  if  you  wish,  let 
me  describe  briefly  the  format  of  an  IFF  brush  file  (such  as 
that  produced  by  Deluxe  Paint,  Aegis  Images,  or  Graphicraft), 
and  the  AmigaBasic  file  handling  routines  you  will  have  to 
grapple  with. 

You  can  examine  a  binary  file  in  the  CLI  by  entering  TYPE 
<filename>  OPT  H.  The  hexadecimal  representation  of  the 
data  in  the  file  will  be  arranged  in  four  groups  of  digits  on  the 
left  of  the  screen:  the  right  side  shows  any  ASCII  equivalent. 
A  Deluxe  Paint  brush,  the  "Wizard",  looks  like  this: 
464F524D  -  This  spells  "FORM",  An  ID. 

00000A24  -  The  size  of  the  file,  stored  in  eight  hex  digits, 
which  is  4  bytes,  also  known  as  a  "long  word'. 

494C424D  -  Spells  "ILBM",  Interleaved  Bitmap--this  is  what 
will  create  most  of  the  incompatibility  problems-more  on  this 
later. 

424D4844  -  Spells  "BMHD",  Bitmap  Header,  another  ID. 


00000014  •  The  size  of  the  header  information  which  folbws. 

0043003E  -  First  four  hex  digits  are  width  of  the  image;  the 
second  four  are  the  height.  This  is  stored  as  2  'short  words' 
of  2  bytes  each. 

00000000  -  X  and  Y  origin  for  grabbing  a  brush. 

050201 00  -  The  first  pair  of  digits  (a  single  byte)  is  the  depth, 
#  of  color  planes;  the  second  byte  is  the  transparency  or 
background  register;  the  third  byte  is  the  compression  type- 
a  0  means  the  file  is  uncompressed,  a  1  means  the  bitmap 
has  been  compressed--more  trouble;  the  fourth  byte,  which 
should  be  0,  is  merely  padding  to  insure  thai  everything  is 
beginning  on  an  even  byte  boundary. 

OOOOOAOB  -  The  first  short  word  indicates  which  bit  pattern 
means  "transparent";  the  second  short  word  is  the  pixel 
aspect  ratio,  in  this  case  1 0:1 1 ,  or  320  X 200. 

014000C8  -  2  short  words  which  give  the  width  and  height  of 
the  page. 

434D41 50  -  Spells  "CMAP",  the  ID  for  the  color  map. 

00000060  -  The  size  of  the  CMAP  which  follows. 


The  CMAP  stores  the  color  data  as  triplets  of  red,  green,  and 
blue  for  each  color  register  in  values  of  zero  to  fifteen.  The 
first  two  long  words  hold  the  RGB  values  for  the  first  two 
registers  and  part  of  the  third  in  this  example: 


OOOOOD/FO   FOFO/DODO 


The  RGB  values  would  be  0,0,13;  15,15,15;  etc.  Divide 
these  values  by  15  for  an  approximation  of  the  PALETTE 
values  to  be  used  in  AmigaBasic.  The  problem  is  that  the 
information  is  stored  in  each  byte  in  reverse  order-ie.,  FO 
instead  of  OF.  The  CMAP  continues  until  all  the  registers  are 
described. 

At  this  point  you  will  encounter  another  series  of  IDs. 
depending  on  whether  the  file  is  of  a  brush  or  a  full  screen.  If 
the  bytes  spell  "GRAB",  this  is  for  a  brush.  If  it  spelts  "CRNG", 
this  is  the  color  cycle  information  for  a  full  screen  image. 

424F4459  -  This  spells  "BODY",  the  actual  bit  map  of  the 

image. 

00000988  -  The  size  of  the  BODY  which  follows. 
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ILA-2 

the  successor  to  Pascal 


■  FULL  interlace  lo  ROM  Kernel,  Intuition. 
Workbench  .and  AmigaDos. 

■  32-bn  native  code  implementalion  wilh 
all  standard,  modules 

■  Supports  transcendenta!  functions  and 
real  numbers. 


■  CODE  slalemenl  for  in-line  assembly 
code 

■  Error  lister  will  locate  and  idenlitv  all 
errors  in  source  code 

■  ModLjia-2  IS  NOT  copy  protected. 

■  320-page  manual 


Complte 


Seiwe  of  Eratosttienes 
Null  Program 


32 

to 


Addtd  iNturn  of  Modula-2  r>at  tound  In  PatcaJ                                 | 

■  CASE  has  an  ELSE  and  may  conlain 
subrange 

■  Programs  may  be  broken  up  into 
Wod  jles  for  separate  compilation 

■  Dynamic  strings  of  any  size 

■  Mactiine  level  interface 

Bit -wise  opefalors 

Direct  port  and  Memory  access 

Absolute  addressing 

■  Wulli-lasking  is  supported 

■  Module  version  control 

■  Open  array  parameters  (VAR  r;  ARRAV 
OF  REALS) 

■  Type  transfer  lunciions 

Interruoi  Structure 

■  Definable  scope  of  object 

Pascal  and  MQdula-2  source  code  are  nearly  identical.  Modula-2  should  be  thought  ol 
as  an  enhancement  to  Pascal  ithey  ^^ere  botn  designed  by  Professor  Niklaus  Wirth) 


Rtgular  VermJon:  (09.95        D«v«k>per'i  Vertlon:  S149.95 
The  developer's  version  supplies  an  extra  dskette  containing  all  of  the  definition 
module  sources,  a  symboi  file  decoder.  ]ink  and  load  file  disassemblers,  a  source  die 
cross  reterencer.  the  kermit  file  transfer  utility  and  the  source  code  lo  several  of  ttie 
Amiga  Modules. 


IDI 


SOFTWARE,  !NC, 
10410  Markison  Road  ■  Dallas,  Texas  75238  ■  (214)  340-4342 
Telex:  888442  CompuServe  Number;  75026,1331 


For  some  reason  the  body  of  an  IFF  bit  map  is  interleaved, 
which  may  make  it  easier  for  a  human  to  inspect  the  data. 
Interleaving  means  that  the  first  row  of  the  image  is  written  out 
for  each  plane,  and  then  the  next  row  for  each  plane,  etc.  We 
have  to  "de-interleave"  the  data  so  that  an  entire  plane  is 
written  out  for  the  whole  image,  row  by  row,  before  going  on 
to  the  next  plane. 

If  you  have  LISTed  the  Object  Editor  (or  typed  LLIST  in  the 
output  window  to  get  a  printout  of  the  program)  you  can  see 
that  the  IFF  data  simply  has  to  be  read  in  to  an  editing 
program,  filtered  to  extract  only  the  data  we  need,  and  then 
re-arranged  to  be  written  back  out  in  a  string  format  that  the 
OBJECT.SHAPE  statements  can  use. 

The  CVL  (unction  will  read  a  long  word  (4  bytes)  from  a  file 
and  convert  it  into  an  integer.  The  MKL$  function  is  the 
mirrorfunction  to  write  it  back  to  a  file  in  string  format.  CVI  and 
MKI$  do  the  same  for  short  words  of  2  bytes.  To  convert  a 
single  byte  to  an  integer,  the  ASC  function  works  just  fine. 
The  editor  will  prompt  you  for  the  complete  pathnames  of  the 
files  to  be  converted  and  the  files  to  be  created,  so  keep 
notes  of  these.  You  can  avoid  lots  of  frustration  by  specifying 
the  pathname  of  a  file  by  its  drive,  rather  than  lis  disk  name, 
especially  it  you're  using  one  drive.  When  you  first  create  the 
brush  in  whatever  graphics  program  you  are  using  be  sure  to 
use  the  first  color  as  the  background  color,  and  specify  that 
color  for  PALETTE  0  in  your  BASIC  program  so  that  the  same 
color  ends  up  as  the  transparent  background  for  your  bobs. 
Some  refinements  you  can  add  to  the  editor  are  routines  to 
decompress  files,  write  the  CMAP  data  into  a  series  of 


'Bob'  Editor 


PALETTE  statements,  and  the  ability  to  write  the  data  for 
bobs  orforthe  PUT  and  GET  routines. 

Program  listing: 

'  **   Instructions,  sort  of   ** 
'  This  editor  will  convert  a  BRUSH  created  in 
Deluxe  Paint 

'  into  the  format  required  for  a  BOB  by  the 
OBJECT.SHAPE 

'  statements  in  AmigaBasic. 

'  The  brush  can  be  in  320  or  640  X  200  or  400 
resolution 
"  and  in  32,  16,  or  8  colors. 

At  the  moment  the  Deluxe  Paint  file  cannot  be 
compressed. 

'  An  approximate  safe   max.  size  is  40  pixels  wide 
X  90 

■  pixels  tall— 

'  An  "input  past  end"  error  when  loading  the  IFF 
file  means 

'  you're  trying  to  read  a  compressed  file. 
'  Graphicraft  (v.  1)  doesn't  compress  files,  so 
this  editor 

'  could  read  a  full  screen,  if  you  can  then  figure 
out  how  to 

'  stuff  the  resulting  41  K  or  so  into  a  BASIC  array 
to  PDT  it 

'  on  the  screen 

'  If  you  want  more  information  on  BOB  and  SPRITE 
file 

'  formats,  list   the  Object .editor  program  in  the 
demos  on  the 

'  EXTRAS  disk.   For   more  info  on  IFF  files,  see 
all  the  stuff  on 

'  CompuServe,  especially  a  file  'called  "IFF. text", 
which 

'  describes  the  file  format. 
'  Fiddle  with  this,  please ! !  It  needs  a 
decompression  routine! 
'         — Mike  Swinger   6/28/86   Columbus  ASIG 


CLEAR,  30000* 
SCREEN  1,640,200,2,2 
WINDOW  1, "IFF. EDITOR", ,15,1 

START ; 

DIM  BODY$  (5,200)     ■, 

CLS:BEEP 

PRINT  '•**  PLACE  THE  DISK  CONTAINING  THE  FILE  YOO 

WANT  TO  EDIT  IN  THE  DRIVE" 

PRINT  "**  AHD  TYPE  IN  ITS  COMPLETE  PATHNAME,  AS  IN 

THE  FOLLOWING  EXAMPLE" 

PRINT 

PRINT  "         DFO:  BRUSH/WIZARD  " 

PRINT 

INPOT  "**  PRESS   <RETURN>  WHEN  FINISHED > 

", FILENAMES 

OPEN  FILENAMES  FOR  INPDT  AS  1 


READ. FILE: 

JtJNK=CVL( INPUTS  (20,  #1)) 

WYDTH=CVI (INPUTS (2, #1) ) 

HEIGHT=CVI (INPUTS (2, #1) ) 

PIXELS 

JUKK=CVL( INPUTS  (4,  #1)) 

PLAHES=ASC  {INPUTS  {1,  #1)  ) 

MASK=ASC  (INPUTS  (1,  *1)  ) 


WIDTH    fiHEIGHT    IN 


#    OF    BIT-PLANES 
THE    TRANSPARENCY 
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'Bob'  Editor 


COMPBESSIOH  l-iSE 


RESOLCZION 


REGISTER 

COHPTCTE-ASC  (INPOT$  (1,  #1)  ) 
JUNK=ASC  (INPnT$  (1,  #1)  ) 
JUKK=«CVI  (INPDX$  (2 ,  #1)  ) 
HASEECT=ASC  (INPUTS  (1,  #1)  ) 
VASPECT=ASC  (INPUT$  (1,  #1)  ) 
IF    SIMJES=S    THEN 
JTraK=CVL  (IWPUTS  (124,  #1)  > 
ELSEIF    PLANESb4    THEN 
JUNK=CVL  (INPUTS  (76,  #1)  ) 
ELSE  •';■ 

JUNK-CVL (IKPDT$ (52, #1) ) 
END    IF 

SIZE=CVL (INPUTS (4, #1) ) 

R0WBYTES%=IHT((WYDTH-1)/16+1)*2     'This    is    the    hard 
part 

FOR    1=0    TO    HEIGHT-1 
Savory  helped   with 

FOR    J=0    TO   PLANES-1 

BODY$  (J,  I)  =INPUT$  (ROWBYTES%,     #1) 
HEXT    J 
NEXT    I 
CLOSE    #1 

PRINT. SPECS: 

XC=2'^INT  (PLANES) -1     :    REM    TOTAL#    OF    COLORS 

IF    INT(HASPECT)=10    THEN   RES=320    ELSE    RES=640 

PRINT    "  TOUR   FILE:        '■;    FILENAMES     :PRINT 


J 


'  that  Lee 


PRINT  "  WIDTH  IN  PIXELS 

PRINT  "HEIGHT  IN  PIXELS 

PRINT  "  #  OF  BIT-PLANES 

PRINT  XC+1;  "  COLORS 


";WYDTH, 

"; HEIGHT     : PRINT 
"; PLANES, 
PRINT 


PRINT 


THE    RESOLUTION    IS 


RES 


PRINT 


200 


PRINT  "  THE  SIZE  OF  THE  BODY  IS" 
PRINT: PRINT 


SIZE 


WRITE. FILE 

PRINT  "  PUT  DISK  IN  DRIVE  AND  TYPE  COMPLETE 

PATHNAME  OF  FILE  YOU  WANT" 

PRINT  "  TO  CREATE        (EXAMPLE  — DP 0  : BLOB 

INPUT  "  PRESS  RETURN  WHEN  FINISHED >  '^FILEOUTS 

OPEN  FILEOUTS  FOR  OUTPUT  AS  2 
PRINT  #2,  MKLS{0); 
MKL$  (0) ; 
MKLS  (PLANES)  ; 
MKLS (WYDTH) ; 
MKLS (HEIGHT) ; 
MKIS (24) ; 
MKIS (XC) ; 
MKI$(0)  ; 
TO  PLANES-1 
FOR  1=0  TO  HEIGHT-1 

PRINT  #2,  BODY$(J,I>; 
NEXT  I 
NEXT  J  ■  ■  . 

CLOSE  #2 

INPUT  "  TYPE  <1>  TO  EDIT  ANOTHER  FILE,  OR  <2>  TO 

QUIT  ",S 

ON    S    GOTO    RESTART,     QUIT 


PRINT 

#2, 

PRINT 

#2, 

PRINT 

#2, 

PRINT 

#2, 

PRINT 

#2, 

PRINT 

#2, 

PRINT 

#2, 

FOR 

J=0 

RESTART : 

CLEAR 

QUIT: 
END 


GOTO    START 
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MIDI  GOLD 


MIDI  Interface  for  the  Commodore  Amiga  Personal  Computer 
Available  now... from  Golden  Hawk  Technology! 


FEATURES: 

•  Dual  MIDI  Out  and  single  MIDI  In  connections. 

•  Sync  Out  connection  provides  clock  and  start/stop 
control  for  drum  machines  and  other  devices. 

•  Connects  directly  to  the  serial  port. 

•  Custom  metal  enclosure. 

•  Complete  with  interface  cable. 

•  One  year  warranty. 

•  Full  technical  information  included. 

PRICE  $79.00  -  Free  shipping  on  prepaid  orders. 


-CV-.WriV' 

^U.rv™V 

T*       1 

1        _ 

^^*A*w 

Bwggg 

•]g2ff 

III]  rt3*4,?^ 

■■■■■■ 

■■ilMfl 

427-3  Amherst  Street,  Suite  389.  Nashua,  NH  03063 
(603)  882-7198  Weekdays  2PM  -  1 0PM  EST 

VISA/MasterCard/CODs  Accepted 

DEALERS  INQUIRIES  WELCOME 

Amiga  is  a  trademark  of  Commodore-Amiga,  Inc. 


AMIGA 
Multi  User 
Software 

by  Conceptual  Computing 


u  ^ 


msi    mm     sm 

*  Attach  up  to  8  [ox-  more)  terminals 
to  your  ftrniga.  each  running  any 
number  of  tasks  or  windows  :i.«t  oniyi. 

*  Also  provides  Pipelining,  Shell  prog- 
;                rams  and  Cut  and  Paste  Editing  m 

any  console  window. 

Software  $  l20  US      $  l50  Can. 

Demo  disk  iivd  uou.i    S  15  US         $  IS  Can. 

If     /ou    want     to    ua*    on«    •xtarn*l     tvrnlnal  -    Jumt    aLlAch 
It     Lo    th*    x«rLAl     port. 

For     nor«     Lhan     an*     «xt«rrt«i     L«rMin«l  ,     /Ou  n*«tr     to    ^uy    ^ 
■  uUlpIvxar. 

4    Port     nuitlpl«xer  «J60    LF5  t500  Can. 

8    Port    nulMpl*Jter-  »690    US  i960  Cifl. 

Pliafl*    «dd    (5    shipping    for    3oftw«r«    «nd    tLO    for    «ach    rhj  LtipLex«r . 
C«rkAdi  nin    prices    for    Canadiin    ordvrs    on  1  y.    Ontar  lo    orders    ddd    7  v.    t^ic^ 

Conceptual  Computing 

600    C*lltUfl«ld    ftv*.,    Toronto,     Ontario,     Z^n^^m    flSH     1 L9 
<*16!     781-77*2 

Alio    «v«ilabl*;     Anil*    hid]    InL*rfac«    S4S    US      ISS    C«r.     '^    «S    Bhipplng. 
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2MEGsForYour 
AMIGA! 


A  must  for  software  developers 

Allows  more  programs  to  run  simutaneously  and  faster 

Can  be  used  to  increase  system  RAM  and/or  as  a  FAST  RAM  DRIVE 

Uses  standard  memory  bus  architecture  to  allow  future  compatibility 

Allows  full  use  of  memory  expansion  port  for  additional  peripherals 

In  Use  By  Many  Major  Software  Developers  For  Over  Six  Months 


AX2000  2  MEG  RAM  Board  $899.00U.S.  ($1276.00  CDN) 
AX10001  MEG  RAM  Board  $729.00  U.S.  ($1035.00CDN) 


*4    * 


Complete  in  case,  nothing  else  to  buy! 
.  ;  1  year  manufacturer  warranty! 


K     » 


1^  ■ 
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DEALER  INQUIRES  INVITED 


Comspec  Communications  Inc. 

153  Bridgeland  Avenue,  Unit  5 
Toronto,  Ontario,  Canada 
M6A2Y6       (416)787-0617 


Shipping  via courrier;  within  Canada  addS2S.OO.  To  U.S.A.  add $100.00  U.S.  -includes  custom  clearance 
Amiga  Is  a  registered  trademark  of  Commodore  Business  Macliine. 


The   AMICUS    Network 


By  John  Foust  ;= 

CompuServe  [72337,135] 
People  Link  AMICUS 
Delphi  JOHN  FOUST 
uucp  through  the  Well  "jfousl" 


I  walked  into  an  Amiga  dealer  in  another  city.  The  storefront 
window  had  a  prominent  Amiga  banner,  and  a  shelf  and  table 
near  the  window  had  the  most  Amiga  software  that  I  had  ever 
seen  in  one  place,  including  COMDEX.  Best  of  all,  there  was 
a  healthy  stack  of  the  latest  issue  of  Amazing  Computing. 

A  box  for  True  Basic  caught  my  eye.  At  this  time,  the  demo 
disks  were  just  shipping,  and  I  didn't  think  the  package  was 
out  yet.  I  was  pleasantly  surprised.  This  store  is  in  a  not-so- 
large  northern  Wisconsin  town.  I  asked  atxiut  the  magazine. 
Ttie  salesman  said  it  was  selling  well. 

He  was  thinking  about  sending  for  the  AMICUS  disks,  but  he 
fiesitated,  since  one  customer  brought  in  AMICUS  disk  9, 
and  he  felt  it  mightn't  be  worth  the  six  dollars.  He  worried  that 
their  was  a  lot  of  duplication  between  the  Fred  Fish  disks  and 
the  AMICUS  disks. 

I  hope  this  hesitancy  isnt  common  among  dealers.  Six 
dollars  a  disk  isn1  much,  considering  it  takes  someone  two 
minutes  per  disk  copy,  and  more  time  to  address  and  stamp 
the  envelope.  Ordering  a  collection  of  twenty  disks  is  a 
formidable  expense.  If  you  are  unsatisfied,  you  can  always 
reformat  the  disks.  The  consumer  price  of  blank  Amiga  disks 
is  four  to  five  dollars  each,  in  a  box  of  ten,  at  many  dealers, 
although  the  smart  shopper  gets  them  mail  order. 

Duplication  is  a  justified  thought,  of  course.  Hey,  I  must  have 
200  disks  of  Amiga  software,  and  I've  given  up  all  hope  of 
organizing  it.  However,  I  have  tried  to  keep  duplication  to  a 
minimum.  There  will  always  be  a  small  amount,  since  I  dont 
know  the  contents  of  the  Fish  disks  in  advance.  Also,  Fred 
Fish  claims  to  "speak  no  BASIC",  so  I  think  he  shies  away 
from  AmigaBasic,  and  favors  hard-core  C  programs. 

I  think  the  AMICUS  disks  are  the  best  value  in  the  Amiga 
software  market  today.  It's  certainly  much  cheaper  than 
subscribing  to  a  commercial  network,  and  downloading 
software.  The  disks  are  well-organized,  and  most  function  in 
a  one-drive  system,  and  99  percent  of  the  texts  and 
programs  are  accessible  from  Workbench.  Some  dealers 
reorganize  them  for  customer  satisfaction.  For  instance,  they 
might  make  a  telecommunications  disk  to  help  sell  modems, 
or  an  Amiga  Basic  disk  to  promote  a  user  group. 

The  Lure  of  Large  Memory 

It  is  hard  to  confess,  because  I  know  many  Amiga  owners  will 
begin  to  lust,  but  I've  had  a  two-and-a-half  megabyte  Amiga 
for  several  months.  I  can't  imagine  going  back  to  512  K 
memory.  Extra  memory  truly  spoils  the  Amiga  owner. 

Picture  this:  No  more  'brrmps'  or  'gronks.'  No  requests  for  the 
Workbench  disk.    Imagine  1.8  megs  free  on  the  Workbench 


memory  indicator.  Imagine  compiles  and  links  without  disk 
access,  and  at  much  greater  speed. 

It  comes  for  a  price,  of  course.  The  Comspec  board  I've  been 
using  has  a  list  price  of  $1079  American,  but  the  lack  of 
custom  fees  in  Canada  brings  this  to  about  $900  there.  I'm 
sure  memory  board  prices  will  drop,  as  the  market  widens, 
and  more  people  join  the  Amiga  fold.  So  far,  there  are  at  least 
a  hall -dozen  other  contenders  in  the  RAM  expansion  market. 

Ah,  the  joy!   The  absence  of  'gronk,  gronk,  gronk'  makes  it 

worthwhile  for  me.  The  increased  speed  is  a  joy,  too.  The 
RAM  disk  operates  much  faster  than  the  disk  drives.  Version 
1.2  of  the  operating  system  increases  the  speed  of  the  RAM: 
disk  even  more. 

In  my  Workbench  startup-sequence,  I  first  start  a  new  CLI 
process.  This  CLI  window  lets  me  start  my  work  immediately, 
while  the  startup-sequence  finishes  in  the  initial  background 
CLI. 

The  next  line  in  the  batch  file  is  the  RAM  test  and  the 
Comspec  'AddMem'  program.  It  takes  a  few  seconds  to 
check  the  memory,  and  tell  the  operating  system  that  this 
memory  can  be  used  for  programs. 

'AddMem'  is  the  program  supplied  on  the  developer  disks, 
for  use  with  the  prototype  memory  expansions  that  Amiga 
used  in-house.  Each  memory  expansion  box  on  the  market 
comes  with  a  program  like  this,  if  the  original  'AddMem' 
doesn't  work,  or  if  they  want  to  add  a  custom  memory  check 
program,  as  Comspec  did.  Their  program  also  performs  the 
function  of  'Addmem.' 

Reportedly,  some  boxes  will  'auto-config',  which  means  the 
operating  system  will  recognize  the  board  immediately,  and 
add  the  memory  itself.  I'd  suspect  these  'autoconfig'  boards 
will  cost  extra,  since  it  requires  more  chips  and  design  effort. 
This  auto-configuration  ability  is  a  new  feature  of  version  1.2 
of  the  operating  system,  due  out  later  this  fall. 

Next,  the  startup-sequence  copies  most  of  the  Workbench 
disk  to  the  RAM:  disk.  This  happens  in  the  background, 
while  I'm  doing  something  else  in  the  CLI.  This  takes  about 
two  minutes,  as  compared  to  the  15  second  boots  without 
the  RAM  expansion.  Then  it  loads  the  Workbench. 

I  must  admit.  I  dont  use  the  Workbench  alot.  When  my  Amiga 
had  only  51 2K,  I  didn't  even  load  the  Workbench,  because  I 
would  rather  use  the  memory  for  a  RAM:  disk.  Now,  with 
several  megabytes,  who  cares?  After  the  initial  gronking,  I 
won't  have  another  disk  access,  unless  I  ask  for  one  explicitly. 
A  series  of  ASSIGN  commands  in  the  batch  file  tell  the 
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INSIDE  YOUR 
GREY  BOX 


AMIGA 
SCHEMATICS 


'g  M 


|You  can  investigate: 

•  RAM  Expansions 

•  Auto  Boot  Rom  Mods 

•  Disk  Drive  Interfaces 

•  Additional  Ports 

•  DMA  Expansions 

•  Video  Enhancements 

•  Etc... 

$24,95 

Orders  Toll  Free  10-6  MON-SAT 

800  762-5645 

inal^^» 


Cardinal 
I  Software 


14840  Build  America  Dr. 
Woodbridge,  VA  22191 
Info:  (703)  491-6494 


AMICUS  Network; 


operating  system  to  look  at  the  files  in  RAM:,  instead  of  the 
files  in  DFO:,  whenever  I  type  a  command  in  the  CLI, 

The  RAM:  disk  is  an  easy  place  to  store  things.  It's  like  a  hard 
disk,  everything  is  there,  and  you  dont  have  to  worry  if 
youVe  stored  it  on  the  right  disk. 

Download  to  RAM: 

When  downloading  or  uploading  files  from  a  network,  I  use 
the  RAM;  disk.  My  terminal  program,  Online!,  normally  writes 
out  each  block  of  data  as  it  is  received.  This  can  waste  a  lot  of 
time,  and  wasting  time  on  a  pay-by-the-minute  network  is  not 
my  idea  of  fun. 

With  the  RAM:  disk,  uploading  or  downloading  happens 
much  faster.  Of  course,  this  works  well  on  a  256  K  or  512  K 
Amiga,  too.  If  you  say  "RUN  ONLINE!"  in  the  CLI  instead  of 
just  "ONLINE",  you  can  switch  back  to  the  CLI,  and  copy  each 
downloaded  file  to  disk,  while  your  terminal  program  is  still 
running.  To  free  up  memory,  you  can  delete  each  file  after  it 
is  copied  to  disk,  while  another  file  is  downloading  to  the 
RAM:  disk. 

In  the  RAM:  disk,  the  files  cause  no  conflicts  with  what  I'm 
doing  on  the  floppy  drives.  If  the  upload  or  download  is 
going  to  take  a  while  to  complete,  I  can  click  the  telecom 
window  to  the  back.  A  beep  signals  the  end  of  the 
transmission.  Meanwhile,  I  can  work  on  something  else. 

Pain  Squared! 

If  you've  ever  been  angry  after  a  visit  from  the  Guru,  consider 
amplifying  that  anguish  several  times  with  a  RAM:  disk.  Ol 
course,  you  are  lulled  into  a  sense  of  security  after  several 
days  of  no  trouble.  If  you've  got  several  files  in  RAM:,  and  a 
program  crashes,  you  lose  the  files.  Perhaps  you've  had  this 
happen  already,  but  what  if  you  had  a  megabyte  or  two  of  files 
in  the  RAM:  disk?  Rebooting  takes  a  long  time,  so  you  won't 
be  back  up  to  speed  for  several  minutes,  and  the  files  are 
gone,  daddy,  gone. 

One  night,  I  crashed  the  machine  while  ARCing  files  for 
uploading  to  a  network.  In  the  background,  I  was  uploading  a 
large  file,  and  It  had  been  going  for  about  ten  minutes.  I  lost 
about  three  hour's  work,  all  told.  I  was  furious!  I  still  had 
copies  of  the  files  in  question,  but  ARCing  takes  a  long  time, 
and  the  ARC  files  would  just  clutter  my  disks,  so  I  left  them  in 
RAM:. 

The  crash  was  caused  by  a  program  I  found  on  a  public 
domain  disk  I  got  in  the  mail.  Needless  to  say,  I  erased  the 
program  after  this,  and  formatted  the  disk  to  further  curse  its 
bits. 

Now,  everytime  I  run  a  new  program,  I  save  the  important  files 
in  RAM:  to  disk.  In  general,  I've  been  more  careful,  and  I  save 
my  important  RAM:  files  to  a  spare  disk  every  quarter  hour. 

When  compiling  or  assembling,  I  doni  have  a  single  disk 
access,  and  it  goes  so  much  faster.  The  Lattice  compiler,  the 
Aztec  compiler,  the  Metacomco  assembler,  and  the  object 
libraries  all  fit  into  RAM:,  with  room  to  spare  for  my  source 
code.  1  truly  think  I  could  get  along  with  one  drive,  if  i  didni 
have  to  copy  disks  so  often. 
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ft  almost  makes  the  Amiga  a  nice  development  machine. 
Let's  face  facts,  program  development  without  a  hard  disk  is  a 
hassle.  The  combination  of  a  large  hard  disk  and  a  large  RAM 
disk  is  almost  ideal.  Floppies  and  limited  memory  are  an 
frustrating  pair  of  limitations.  I  cani  wait  to  get  a  hard  disk,  to 
shorten  the  time  it  takes  to  boot,  and  to  say  goodbye  to 
gronks  and  disk  swapping  forever. 

At  first,  I  was  inclined  to  run  as  many  programs  as  possible  at 
the  same  time.  I  soon  noticed  a  degradation  in  speed.  My 
telecom  program  would  display  jerky  bursts  of  characters,  and 
the  disk  drives  would  gronk  at  a  different  frequency.  Mouse 
and  window  re-sizing  speed  would  drop. 

Some  programs  dont  work  well  with  the  extended  memory. 
The  most  common  problem  shows  up  in  gadgets  in  the 
program.   Instead  of  a  detailed  drawing  of  a  button  or  switch, 
the  gadget  is  solid  black,  or  filled  with  random 
bits. 

A  proper  Amiga  program  must  ask  the  operating  system  for 
memory  visible  to  the  Amiga  graphics  chips.  The  RAM 
expansion  on  the  front  of  your  Amiga  is  visible  to  the  graphics 
chips,  but  the  memory  expansion  on  the  side  is  not. 

The  operating  system  calls  the  graphic  memory  chip  memory. 
The  programmer  must  specifically  request  chip  memory  for 
the  renderings  of  gadgets,  otherwise,  the  drawings  will  not 
be  displayed  correctly. 

Dan  'DJ'  James,  a  regular  on  People  Link,  wrote  a  program 
that  adjusts  program  files  so  this  problem  is  removed.  An 
Amiga  executable  file  is  composed  of  several  pieces,  and  the 
operating  system  loads  these  pieces  into  the  type  of  memory 
needed  for  the  program,  in  chip  or  non-chip  memory. 

James'  program  massages  the  program  file,  and  tells  the 
operating  system  to  put  all  data  objects  in  chip  memory.  This 
program  works  well,  and  is  on  one  of  the  newer  AMICUS 
disks.  See  the  catalog  for  more  information. 

Future  Amiga  chips 

Ckinfirming  long-standing  rumors.  Jay  Miner,  the  general 
manager  at  Commodore-Amiga,  announced  that  C-A  plans 
new  Denise  and  Agnus  chips  (or  future  Amiga  computers. 

Agnus  is  the  video  chip  in  the  Amiga.  The  current  chip  can 
only  address  51 2K  of  memory,  meaning  that  all  sampled 
sounds  and  video  graphic  images  must  reside  in  this 
memory,  also  known  as  'chip'  memory. 

The  new  chip  can  manipulate  2  megabytes  of  memory.  The 
new  chip  set  will  also  support  non-interlaced  graphics.  We'll 
have  more  details  in  a  future  issue.  The  news  arrived  at  press 
lime. 

Modula-2  from  Switzerland 

The  latest  news  on  the  Modula-2  compiler  on  Fred  Fish  disk 
24  came  across  Usenet  recently.  According  to  Claudio 
Nieder,  of  the  computer  science  department  at  ETH  Zurich, 
this  version  on   the    Fish   disks    is   a   pre-release  of   the 
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EXPANSION 
DISK  DRIVE 

GIVE  YOUR  AMIGA 
2.6  MEGABYTES 

2x2  CONSISTS  OF: 

2   5  1/4"  80  track  drives, 
electronics  and  software. 

AMIGA  DOS  MODE  -  Emulates 
3.5"  drives  with  880K  each. 
PC  DOS  MODE  -  Provides  dual 
40  track,  360K  drives. 

$595.00 


JUKI  5510 0 
Color  Printer 

(Uses  Epson  Codes) 

$469.00 


Cardinal 


Shipping  extra! 

Software     14540    Build 


Woodbridge,  VA  22191  Info:  (703)  491 
,— .   -—    Order  now!  (10-4  M  on-Sat) 


America    Drive 


800  762-5645 
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Modula-2  Compiler  used  for  MacMETH  for  the  Macintosh.  A 
new  version  and  system  will  be  available  soon.  Hopefully, 
'soon'  means  something  different  in  the  Swiss  software 
vocabulary. 

The  current  version  of  the  Compiler,  alpha  tests  are  coming 
soon,  works  much  better  than  the  PD  version,  also  the  run- 
time system  is  much  better.  Range  errors  and  other  Traps 
dont  lead  to  Gurus  anymore,"  he  said.  'The  system  will  be 
release  at  the  end  of  this  year  and  will  include  all  necessairy 
interfaces,  a  source-code  debugger,  a  linker..."  Nope,  it 
sounds  like  Wirth's  grad  students  understand  the  American 
software  industry,  if  'soon'  means  five  to  six  months. 

Did  you  know  that  Americans  call  Prof.  Wirth  by  value,  and 
that  the  Europeans  call  him  by  name?  Did  I  tell  this  joke 
already?  You  see,  we  pronounce  it  'worth',  and  they  say 
Veerth',  the  way  he  pronounces  it. 


New  AMICUS  disks 

Disk  11  is  finally  ironed  out.  First,  here  are  the  C  programs  on 
the  disk.  As  t  mentioned  two  issues  ago,  it  has  a  program 
called  'pm',  a  performance  monitor.  It  presents  a  chart- 
recorder-type  display,  in  a  sizable  window.  It  displays  a  rolling 
chart  of  CPU  activity  and  memory  use,  separated  into  chip 
and  fast  memory. 

*ps'  is  like  the  Unix  command  of  the  same  name.  It  shows  a  list 
of  the  currently  active  CLl  processes,  and  information  atraut 
them.  By  Dewi  Williams. 

'cpri'  shows  a  list  of  CLl  processes,  and  lets  you  adjust  the 

priority  of  a  process.  In  a  multitasking  computer,  each 
program  in  memory  gets  a  share  of  the  processor's  time.  The 
priority  is  a  measure  of  that  share.  By  adjusting  the  priority  of 
a  process,  you  can  speed  the  execution  of  one  process,  at 
the  sake  of  the  others. 

'vidtex'  is  a  program  to  display  the  run-length-encoded 
pictures  from  CompuServe.  For  example,  up-to-the-minute 
weather  maps  are  available  in  one  forum  on  CompuServe, 
With  any  terminal  program,  you  can  capture  the  graphic 
weather  display.  It  is  sent  as  a  stream  of  seemingly 
meaningless  characters,  but  this  program  will  turn  it  into  a 
high  or  medium  resolution  picture.  This  was  written  by 
Amazing  Computing  author  George  Musser, 

This  disk  contains  several  programs  from  Amazing 
Computing,  ft  is  much  easier  to  get  this  disk  than  to  type  in  all 
the  source  code  to  a  multi-page  Amiga  Basic  program. 

Author  Steve  Pielrowicz  has  two  contributions  on  this  disk, 
including  the  pointer  editor  article  in  this  issue,  and  his 
example  programs  from  the  discussion  of  optimization  of 
Amiga  Basic. 

There  is  an  extensive  calendar,  diary  and  date  book  program, 
written  by  Mark  Hurst,  of  Sheridan,  Oregon.  In  a  strange 
connection,  this  program  came  to  me  through  a  pitching 
coach  of  the  Seattle  Mariners.  It  is  superbly  done.  For 
example,  when  you  open  the  diary,  the  pages  are  animated, 
and  the  cover  of  the  book  opens  v/hen  you  start. 


The  IFF  brush  to  Amiga  Basic  BOB  converter  program,  by 
author  Jim  Swinger,  is  here.  BOBs  are  the  OBJECT  shapes 
you  can  draw  in  Amiga  Basic. 

Jim  Meadow's  3D  graphics  program  is  here.  There  is  a  loan 
amortization  program,  a  program  to  draw  and  play  sound 
waveforms,  a  program  to  draw  Hilbert  curves,  a  'madlib' 
generator  program,  a  talking  mailing  list  program,  a  program  to 
demonstrate  reading  the  mouse  on  a  high  resolution  screen, 
a  slot  machine  game,  a  strange,  pachinko-like  game,  a  game 
of  TicTacToe,  and  a  short  program  that  makes  wierd  sounds. 

For  executable  programs,  there  are  three  programs  for 
displaying  the  three  most  popular  Commodore  64  paint 
program  pictures.  One  displays  Doodle!  pictures,  one  shows 
Koala  Pad  pictures,  and  one  shows  pictures. 

There  is  a  program  called  'cp',  like  the  Unix  command.  This  is 
a  copy  program,  like  the  AmigaDOS  copy  command,  except  K 
uses  the  popular '"  wildcard  filename  method  of  Unix,  CP/M 
and  PC-DOS. 

'diff'  and  'ssed'  are  more  Unix-like  programs,  'diff  compares 
two  text  files,  and  outputs  a  list  of  their  differences,  'ssed'  is  a 
stream-oriented  editor  that  can  take  the  output  of  'diff,  apply 
it  to  one  of  the  files,  and  produce  the  other. 

'dirutil'  is  a  handy.  Intuition  method  of  manipulating  files  on  a 
disk.  You  can  delete,  rename,  copy  and  move  files,  all  within 
Intuition-style  menus  and  requesters. 

A  single  assembly  language  program,  'els',  by  Tom  Caldwell, 
is  a  short  example  of  sending  a  clear-screen  sequence  to  the 
screen,  and  handling  simple  command  line  arguments. 

Modula-2  is  more  and  more  attractive  as  an  Amiga 
development  language.  Like  assembly  language, 
development  is  hampered  by  a  lack  of  examples,  and  the  C- 
language  emphaisis  in  the  ROM  Kernal  Manual. 

TDI  Modula-2  has  a  recent  bug  fix  that  corrected  a  long  list  of 
problems  in  the  original  release.  Les  Caudle,  of  TDI,  claims 
the  new  version  is  much  faster,  and  produces  smaller,  faster 
code  than  before.  He  said  the  Sieve  benchmark  is  now  down 
to  about  2400  bytes  of  executable  code. 

Richie  Bielak  was  a  major  bug-slayer  and  Modula  guru  in  this 
effort.  Three  o(  his  example  programs  are  collected  here. 
One  is  called  trails',  which  is  one  of  those  moving  worm 
displays.  Another  is  a  simple  requester  example,  and 
another  is  a  lower-to-uppercase  converter  program,  a  handy 
tool  for  sbppy  typists. 

There  is  a  single  Forth  example  of  a  well-known  circle -drawing 
algorithm.  This  short  example  is  by  Amazing  Computing 
columnist  Jon  Bryan. 

Last,  there  is  a  shareware  collection  of  spreadsheet 
templates  for  the  Analyze!  spreadsheet,  from  Micro-Systems 
Software.  There  are  a  dozen  here,  they  include  a  checkbook 
balancer,  an  inventory  sheet,  and  a  loan  amortization  sheet. 
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New  Fred  Fish  Disks 

The  Fish  disks  are  now  30  in  number. 

Disk  25  contains  a  new  version  of  Hack,  ported  to  the  Amiga 
by  John  Toebes.  This  is  the  graphic  version,  as  compared  to 
the  character-based  graphics  o<  the  previous  version. 

Disk  26  has  'unhunk'.  a  program  to  process  the  Amiga 
executable  load  file  format.  It  lets  you  coalesce  code  and 
data  hunks,  "ckermit'  is  a  nearly  complete  Kermit  server,  with  a 
connect  mode,  'ps'  is  the  process  priority  program  described 
in  AMICUS  disk  11.  'archx'  bundles  a  series  of  text  files  for 
transmission  through  a  network. 

Disk  27  has  AmigaBasic  demos  I  promised  on  AMICUS  disk 
13.  These  include  the  new  ConverlFD  program,  and 
programs  to  use  the  new  IFF  hunk  type  called  AGBM,  which 
is  a  format  more  conducive  for  display  under  Amiga  Basic. 
ScreenPrint  is  an  example  of  using  library  calls  to  access 
AmigaDOS  functions. 

Disk  28  has  more  ABasic  games,  by  the  author  of  the 
Monopoly  game.  These  include  cribbage,  backgammon, 
mille  bournes,  and  othello.  For  C  programs,  this  has  "shar', 
the  Unix-compatible  file  archiving  and  unpacking  program, 
and  SuperBitMap,  which  demonstrates  the  use  of 
ScrolILayers,  and  how  to  sync  SuperBitMaps  for  printing. 

Disk  29  contains  a  demo  version  of  Aegis  Draw.  The  Save 
feature  is  disabled,  but  otherwise,  this  is  the  real  production 
program,  'cc'  is  another  version  of  the  C  compiler  front-end 
program  from  an  early  Fish  disk,  but  this  version  is  set  up  for 
the  Manx  compiler. 

'enough'  is  a  program  to  test  for  the  existance  of  a  given 
resource  such  as  memory,  disk  drives,  etc.  from  the  CLi. 

'player'  is  a  public  domain  playing  program  for  Aegis  Animator 
script  files. 

'rubik'  is  an  animated  Rubik's  cube  program,  a  merger  of  the 
'skewb'  and  'amigaSd'  programs. 

This  disk  has  a  public  domain  implementation  of  a  0  string 
library. 

"vtlOO"  is  a  terminal  program  that  emulates  the  VTIOO 
terminal.  It  also  has  Kermit  and  Xmodem  protoccls. 


AMICUS  Network 

like  this,  such  as  the 


Disk  30  is  a  collection  of  shareware  programs. 
Amiga  Basic  BBS  1  promised  for  AMICUS  disk  1 2. 


It  has  the 


FontEd  is  an  Amiga  font  editor,  which  might  hold  you  until  the 
official  font  editor  comes  with  version  1.2  of  the  operating 
system. 

MenuEditor  is  a  useful  program  (or  programmers.  It  lets  you 
design  Intuition  menus,  and  then  outputs  the  proper  C  code 
to  effect  those  menus  in  your  C  program.  Mostly,  this  is  a 
translation  of  the  things  you  designed  into  data  arrays  in  the 
right  format  for  the  operating  system.  This  sort  of  program  is 
sorely    needed    for    the    Amiga.       Most    other   windowed 


operating  systems  rely  on  a  program 
Macintosh,  or  Windows  on  an  IBM  PC. 


StarTerm  is  a  program  by  one  of  the  SYSOPs  of 
CompuServe.  This  is  a  full-featured  terminal  program  that 
exceeds  the  capabilities  of  Online  in  some  ways. 

Please  note  that  these  programs  are  shareware.  This  means 
the  author  is  requesting  money  from  you,  if  you  and  your 
conscience  feel  that  you  get  sufficient  benfit  from  its  use, 
they  want  your  money.  Since  these  authors  are  more 
sensrtive  to  the  'public  domainness'  of  their  property,  the 
contents  of  this  disk  might  prevent  Amazing  Computing  from 
distributing  it. 

This  is  the  addendum  to  the  AMICUS  list,  to  delineate 
AMICUS  11. 

Disk  11 

C  programs 

dirutil  Intuition-based,  CLI  replacement  tile  manager,  S-E 
cpri  shows  and  adjusts  priority  of  CLI  processes,  S-E 

ps  shows  info  about  CLI  processes,  S-E 

vidtex       displays  CompuServe  RLE  pictures,  S-E 


Amiga  Basic 

programs 

pointered 

pointer  and  sprite  editor  program 

optimize 

optimization  ex  ample  from  AC  article 

calendar 

large,  animated  calendar,  diary  and  date 

book  program 

amortize 

loan  amortizations 

brushtoBOB 

converts  small  IFF  brushes  to  Amiga  Basic 

BOB  OBJECTS 

grids 

draw  and  play  waveforms 

hilbert 

draws  Hilbert  curves 

madlib 

mad  lib  story  generator 

mailtalk 

talking  mailing  list  program 

meadowsSD 

3d  graphics  program,  from  Amazing 

Computing  article 

mouselrack 

mouse  tracking  example  in  hires  mode 

slot 

slot  machine  game 

tictactoe 

the  game 

switch 

pachinko-like  game 

weird 

makes  strange  sounds 

Executable  programs 

cp  unix-like  copy  command,  E 

els  screen  clear,  S-E 

diff  unix-like     program     to     show    differences 

between  files 
ssed  unix-like    stream    editor    uses   'diff   output 

to  fix  files 
pm  chart  recorder  performance  indicator 

Assembler  programs 

els  screen  clear  and  CL!  arguments  example 

Modula-2  trails  moving-worm  graphics  demo 

caseconvert        converts  Modula-2  keywords  to     uppercase 
Forth  Breshehan  circle  algorithm  example 

Analyze  12      templates      for      the      spreadsheet 

Analyze! 


•AC' 
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Po  you  know  where  your  bugi  are  ? 


This  C  programmer  is  finding  his  bugs  the  hard  way  ...one  at  a  time. 
That's  why  its  taking  so  long.  But  there's  an  easier  way.  Use 


Amiga-Lint  2.00 


Amiga-Lint  analyzes  your  C  programs  (one  or  many  modules)  and 
uncovers  glitches,  hugs,  quirks,  and  inconsistencies.  It  will  catch  subtle 
errors  before  they  catch  you.  By  examining  multiple  modules,  Amiga-Lint 
enjoys  a  perspective  your  compiler  does  not  have. 

-  Indirect  files  automate  testing. 

-  Use  it  to  checl<  existing  programs, 
novice  programs,  programs  about  to 
be  exported  or  imported,  as  a  pre- 
liminary to  compilation,  or  prior  to 
scaling  up  to  a  larger  memory  model. 

-  All  one  pass  with  an  integrated 
pre-processor  so  it's  very  fast. 

-  Has  numerous  options  and  infor- 
mational messages. 

-  It  will  use  all  thie  memory 
available. 

-  PRICE:  $98.00  MC,  VISA,  COD 
(Includes  shipping  and  handling 
within  US)  PA  residents  add  6%  sales 
tax.  Outside  USA  add  $15.00. 
Educational  and  quantity  discounts 
available. 


-  NEW:  ANSI  C  extensions  (enum, 
prototypes,  void,  defined,  pragma) 
and  many  additional  checks. 

-  Full  K&R  C 

-  Use  Amiga-Lint  to  find: 

inconsistent  declarations 
argument/parameter  mismatches 
uninitialized  variables 
unaccessed  variables 
unreferenced  variables 
suspicious  macros 
indentation  irregularities 
function  inconsistencies 
unusual  expressions 
...MUCH  MUCH  MORE 

-  User-modifiable  library-description 
files  for  the  Aztec  and  Lattice  C 
compilers. 

-  All  warning  and  informational  mes- 
sages may  be  turned  off  individually. 


■Trademarks:  Amiqa-Lint(Gimpel 
Software),  Amiga(Commodore) 


3207  Hogarth  Lane  •  Collegeville,  PA  19426 
(215)584-4261 
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LINKING  C  PROGRAMS  WITH 
ASSEMBLER  ROUTINES  ON  THE 


AMIGA 

By  Gerald  Hull  

People  Link  DRJERRY 

One  of  the  more  common  approaches  to  software 
development  is  to  code  the  application  initially  in  a  high-order 
language  (HOL),  to  get  it  up  and  running  as  soon  as  possible. 
Then,  as  necessary  or  desired,  various  subroutines  are 
rewritten  in  assembSy  language  for  increased  speed  and 
efficiency. 

Whatever  your  motivation  -  you  may  have  some  particular 
algorithms  already  coded  in  assembler,  or  wish  to  perform  low- 
level  functions  that  aren't  easily  accomplished  othera/ise  -this 
article  will  show  you  how  to  interface  routines  written  in 
68000  assembly  language  with  an  Amiga  HOL. 

The  particular  HOL  in  my  example  is  Lattice  C,  and  the 
specific  interlacing  procedure  I  describe  is  pretty  much 
limited  to  that  language,  insofar  as  it  relies  upon  use  of 
"Alink." 

r 

Manx  C  would  use  a  similar  method  of  linking  assembly 
language  routines.  It  has  a  different  frame  pointer,  and  its 
registers  are  organized  differently  than  Lattice.  Of  course,  in 
Manx,  in-line  assembly  code  is  permitted.  In  TDI  Modula  2, 
you  can  insert  in-line  code,  in  the  form  of  constants,  but  not 
true  assembly  language  source  text. 

However,  so  far  as  my  description  of  HOL  structures  goes, 
much  of  what  I  say  should  carry  over  to  other  dialects  of  C,  as 
well  as  any  similar  high-level  languages  on  the  68000.  Such 
languages  use  "local  stack  frame"  (LSF)  based  subroutines. 
They  include  Modula-2  and  Pascal,  for  instance,  but  do  NOT 
include  languages  such  as  Basic,  Forth,  and  Fortran.  I  touch 
on  some  of  the  variations  in  HOL  implementation  in  later 
sections. 

A  "local  stack  frame"  is  a  nifty  way  of  providing  any  subroutine 
in  a  program  with  its  own  local  variable  space,  located  by 
reference  to  a  special  "frame  pointer".  More  importantly,  the 
LSF  approach  guarantees  that  any  such  subroutine  can  call 
any  other  and  be  confidant  that  parameter  values  will  not  get 
messed  up,  and  the  program's  flow  of  control  will  not  become 
confused.  Such  routines  can  even  call  themselves,  and  for 
this  reason  are  said  Jo  be  "recursively  reentrant". 

The  instruction  set  of  the  68000  microprocessor  in  the  Amiga 
has  several  instructions  designed  to  implement  the  local 
stack  frame  rancept.  Later  on,  we  will  examine  exactly  how 
they  work.  First  we  must  confront  a  more  immediate  problem: 
How  do  we  isolate  the  C  code  that  we  want  to  replace  with 
assembler?  in  what  remains,  I  assume  familiarity  with  the 
Amiga's  command  line  interface,  the  CLI,  and  ED  editor,  as 
well  as  access  to  the  Lattice  C  compiler  and  the  MetaComCo 
Macro  Assembler. 


I  will  describe  the  process  I  followed  in  structuring  68000 
code  to  replace  a  particular  C  subroutine,  and  in  assuring  that 
it  would  link  back  into  the  original  program. 


SEPARATING  A  SUBROUTINE 

In  order  to  replace  C  code  with  assembly  language,  the  first 
thing  you  want  to  do  is  isolate  it  in  its  own  subroutine.  If  your 
goal  is  to  speed  up  your  program,  try  as  much  as  possible  to 
keep  all  loops  internal  to  the  routine.  As  we  shall  see,  a 
certain  overhead  is  accrued  everytime  a  LSF  subroutine  is 
called. 

The  program  in  Listing  2,  DOODLE. C,  is  nothing  special:  it's 
a  computerized  version  of  a  little  doodle  from  grade  school.  I 
doubt  it  is  the  cleverest  way  on  the  Amiga  of  doing  what  it 
does.  However,  it  is  relatively  short,  and  has  a  routine 
'dooditO'  which  contains  a  number  of  subroutine  calls  and  all 
the  serious  number  crunching  in  the  program.  This  makes  it 
useful  for  our  purposes,  since  I  designed  it  that  way. 

The  next  step  removes  the  function  'dooditO'  from 
DOODLE. C.  Once  it  ts  removed,  the  program  will  not  link 
without  a  reference  to  '_doodit'.  We  can  play  a  shell  game 
with  how  that  is  provided. 

How  is  this  done  in  DOODLE.C?  Notice  that  Listing  2 
contains  only  a  single  'include'  file,  in  the  line  '#include 
<doodle.def>'.  That  file,  in  Listing  1,  holds  all  the  other 
'include'  files,  as  well  as  all  the  '#define'  statements  and  any 
"non-official"  structure  definitions.  By  putting  all  this 
information  in  a  separate  include  file,  I  can  also  easily  provide 
exactly  the  same  information  to  'dooditO'  when  I  want  to 
compile  it  separately.  Further,  note  that  the  variable 
'INTERNAL  has  been  set  to  FALSE  in  DOODLE.DEF.  The 
symbol  'FALSE'  is  defined  as  "0"  in 
INCLUDE/EXECyTYPES.H. 

Turning  back  to  the  listing  of  DOODLE.C,  you  will  see  C 
preprocessor  directives   surrounding   the    routine  we   are 

intending  to  assemble: 


#if  INTERNAL 

void  doodit(port,  color,  box) 

#endif 
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lUEW! 
EXPERT  SYSTEM  KIT 

Those  of  us  who  get  excited  about  computers 
have  been  looking  for  the  application  that 
takes  us  into  the  twenty-first  century.  This 
is  it!  Now  you  can  create  an  expert  system 
that  will  grow  with  your  Amiga.  Would  you 
like  a  computer  system  straight  out  of 
science  fiction  sitting  in  your  own  home  or 
office?  How  powerful  can  it  be?  As  big  as 
your  imagination,  because  you  build  it  the  way 
you  want  it! 

We  supply  the  EXPERT  SYSTEM  driver  along 
with  a  sample  knowledge  base.  Complete 
instructions  guide  you  to  cresting  your  own 
application.  Experiment  with  artificial  intelli- 
gence! The  software  driver  analyzes  your 
data  and  learns  to  draw  the  correct  con- 
clusions. Think  of  the  applications!  Diagnose 
circuits,  plant  and  animal  diseases.  Predict 
events  based  on  past  performance- 
weather,  stock  market,  sports.  Build  the 
ultimate  science  project  or  develop  a  com- 
mercial application!  We  wil!  be  supporting  this 
kit  with  a  newsletter  so  you  can  share 
knowledge  bases,  techniques  and  ideas. 

PRICE:  $69.95   plus  $3   shipping  and 

handling, 

COD  add  $4.  Visa/MC  orders  call  C612J 
871-6283.  Money  orders  or  checks  to: 

Interactive  Analytic  Node 

2345  West  Medicine  Lake  Drive 

Minneapolis,  Minnesota  55441 


Linking  C  with  Assembly  ^^ 

These  directives  provide  the  means  by  which  'doodit()'  is 
removed  from  Ks  parent  program:  as  long  as  'INTERNAL'  is 
defined  as  0  (FALSE),  the  C  preprocessor  will  pass  over  the 
routine  as  if  it  isn't  there. 

However,  not  only  do  we  want  'doodit()'  out  of  DOODLE.C, 
we  want  it  to  be  able  lo  stand  on  its  own,  because  the 
assembly  language  which  replaces  it  has  to  stand  on  its  own. 
This  is  why  the  variables  it  shares  with  other  parts  of  the 
program  are  explicitly  passed  as  parameters;  'port',  'color,' 
and  'box'.  'doodit()'  also  shares  the  constants  NODE,  SIDE, 
PART,  XM  and  YM,  requiring  their  separate  definition  in  the 
assembler  version  of  the  routine.  A  more  modularly 
designed  program  would  pass  all  these  values  to  'dooditO'  as 
parameters. 

The  routine  has  other  features  which  facilitates  its  translation 
into  68000  assembler.  It  contains  no  floating  point  math,  for 
instance.  To  use  "float"  or  "double"  variables  would 
introduce  additional  complexKies  that  are  best  avoided. 
Floating  point  chews  up  time  to  boot.  And  finally,  the 
decremental  x  and  y  for-loops  were  designed  wrth  an 
especially  sexy  68000  branch  instruction  in  mind  called 
DBRA. 

SEPARATE  COMPILATION  OF  FILES 

1  will  assume  that  you  have  entered  the  texts  of  Listings  1  and 

2  into  appropriately  named  files.  They  are  also  available  on 
the  AMICUS  disks,  and  in  the  data  libraries  of  several 

networks. 

Your  C  disk  should  contain  a  batch  file  which  both  compiles 
and  links  programs;  the  custom  is  to  call  such  files  something 
like  "MAKE".  When  you  try  to  compile  and  link  DOODLE.C, 
you  will  get  a  "link  failure"  message  citing  '_doodit'  as  an 
"unresolved  external  reference". 

Note  that  DOODLE.DEF  must  be  in  your  root  directory,  or 
you'll  get  a  lot  of  compiler  errors  as  well.  Check  RAM;  to  see 
if  it  contains  the  file  DOODLE.O.  If  it's  not  there,  you  probably 
have  a  line  like  'delete  <file>.o'  in  your  MAKE  file.  You'll  have 
to  comment  that  line  out,  and  recompile. 

Next,  using  the  define  block  and  write  block  utilities  of 
Amiga's  ED  editor,  put  a  copy  of  the  'doodit()'  routine  into  a 
separate  file:  RAM:DOODIT.C.  Insertthe  line 

#tnclude  <doodle.def> 

at  the  very  beginning  of  the  file,  just  as  it  is  in  DOODLE.C.  In 
this  way,  you  will  provide  reference  to  the  very  same  global 
definitions  and  constants  that  were  required  for  compiling  the 
main  program.  The  'doodit()'  routine  may  not  need  them  all, 
of  course,  but  the  excess  cannot  cause  any  harm. 

Now  exit,  and  execute  the  MAKE  batch  file  on  DOODIT.C  as 
well.  If  you  have  done  everything  correctly,  it  will  compile,  but 
fail  to  link,  because  of  unresolved  external  references: 
'_main',  '_GfxBase',  and  '_boxinit'.  In  fact,  you  now  have 

everything  you  need,  but  in  two  different  places. 

In  compiling  DOODLE.C  you  will  have  produced  an  object  file 
named  DOODLE.O,  and  in  compiling  DOODIT.C,  you  will 
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have  produced  another  named  DOODIT.O.  To  produce  a 
complete  program,  all  we  need  do  is  link  the  two  Jogether, 
and  each  will  provide  the  other  with  the  external  references  it 
is  looking  for. 

LINKING  SEPARATE  FILES  TOGETHER 

To  do  ihis,  it  will  be  useful  to  have  a  special  batch  file  just  for 
that  purpose.  Make  a  copy  of  your  MAKE  file  under  another 
name  (I  call  mine  MAKL).  Then  delete  (or  "comment  out")  all 
the  lines  that  have  to  do  with  compilation,  and  amend  the  link 
sequence  so  that  it  can  deal  with  two  separate  files.  This  is 
what  my  MAKL  boks  like, 

.keyfile1,file2 

echo"--  linking  <:file1>.owith<file2>.oto  <rilel>." 
:c/alink:lib/Lstartup.obj+<file1>.o+<file2>.o 
+  library  :lib/lc.lib+:lib/amiga.libto  <(ile1> 
;delete<(ile1>.o       '"THESE  LINES 
;delete<:file2>.o       *"  COMMENTED  OUT 
date>dfO:now 

Assuming  that  both  DOODLE.O  and  DOODIT.O  are  in  your 
RAM:  directory,  you  can  now  link  them  together  with  the 
following  command: 

1>  execute  maki  ram:doodle  ram:doodit 

If  everything  has  gone  right,  this  wilt  leave  an  executable 
program  in  the  RAM:  directory  named  DOODLE.  It  will 
behave  just  as  if  we  had  changed  the  definition  of 
'INTERNAL-  in  DOGDLE.DEF  to  'ftdefine  INTERNAL  TRUE' 
and  had  compiled  it.  Oh  great.  It  looks  like  we've  gone  to  all 
this  trouble  for  nothing!  But  actually  we  have  accomplished 
something  very  important:  we  have  the  program  DOODLE. C 
looking  to  a  separate  file  (or  the  subroutine  'dooditO'.  Now  all 
we  have  to  do  is  provide  an  assembler-based  version  of  that 
routine  (or  the  linker,  and  it  will  be  none  the  wiser!  This,  of 
course,  is  where  the  file  MACDOOD.ASM,  in  Listing  3,  enters 
the  picture. 

Once  you  have  gotten  a  copy  of  MACDOOD.ASM  into  RAM: 
you  will  want  to  change  disks  and  apply  the  assembler  MAKE 
batch  file  to  it.  And  again  you  will  get  error  messages  from  the 
linker:  '_boxinit'  and  '_GfxBase'are  unresolved.  GfxBase  is  a 
pointer  used  to  calculate  the  calling  addresses  of  Make  and 
Draw.  But,  more  importantly,  you  will  have  left  MACDOOD.O 
in  RAM:,  an  object  file  produced  (rom  the  68000  translation 
of  doodit(). 

Finally,  retrieve  your  version  of  MAKL  (mine's  on  the  C  disk). 
After  making  sure  that  you  also  have  DOODLE.O  in  RAM:, 
you  can  link  the  C  program  to  the  assembly  language 
subroutine  with: 

1>  execute  makl  ram:doodle  ram:macdood 

There  now  should  be  a  new  executable  program  in  RAM: 
named  DOODLE.  Mission  accomplished!  Now  when  the 
program  goes  to  execute  the  'doodleO'  subroutine,  it  will  be 
using  the  assembler  code  listed  in  MACDOOD.ASM  rather 
than  the  original  0  code.  For  what  it's  worth,  the  new  version 
of  'dooditO'  is  40%  smaller  than  the  0  version,  and  the 
revised  version  of  DOODLE  is  approximately  37% faster. 
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A  tool  to  match  your  curiosity! 

Would  you  like...to  scout  the  inner  workings 
of  your  Amiga?  ...a  live  window  onto  memory 
to  watch  what  other^  tasl<s  are  doing?  ...an 
on-line  memory  map  to  tell  you  where  you  are? 
...to  actually  see  the  assembly  language  code, 
in  human  readable  form,  that  exists  inside  your 
Amiga?  ...to  step  through  a  piece  of  code  to 
see  what  it  does?  ...to  capture  your  own 
source  code  and  customize  it? 

The  EXPLORER  has  some  powerful  fea- 
tures that  make  it  a  superb  extension  of  your 
curiosity.  Features:  display  memory  and  files 
in  Hex  and  ASCII,  memory  modify,  search, 
move,  fill,  display  and  change  registers, 
disassembly  trace,  load  programs,  disassem- 
ble to  disk.  Output  to  printer  or  disk  file. 
Powerful  commands:  loops,  text  display,  real- 
time RAM  view,  &  more!  The  EXPLORER  puts 
your  sense  of  wonder  in  charge! 

The  EXPLORER  can  be  used  for  serious 
program  development  too!  As  a  debug  tool  the 
EXPLORER'S  command  set  is  compact  and 
efficient,  You  can  execute  your  commands 
within  loops,  creating  live  displays  of  RAM  or 
registers  while  you  test  your  program.  You 
control  the  display  format  too,  and  even  display 
informative  messages.  No  need  to  waste 
valuable  time  typing  that  patch  into  memory 
every  time  you  debug.  Simply  write  a  new 
command  to  do  it  for  you.  After  all,  what  are 
computers  for?  When  you  want  to  save  the 
contents  of  RAM  or  a  series  of  trace  steps 
for  future  examination,  just  send  them  to  the 
printer,  or  better  yet,  send  them  to  a  disk  file! 
PRICE:  $49.95  plus  $3  shipping  and  handling. 

COP  add  $4.  Visa/MC  orders  call  C612) 
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SUBROUTINE  STRUCT 

M68000  EXAMPLE 

Allocate  Locale  Frame 

LINKFP,#LVAL 

Save  Needed  Registers 

MOVEM.L  D2-D7/SP,-(SP) 

Execute  Function 

<code> 

Restore  Used  Registers 

MOVEM.L  (SP)+,D2-D7/SP 

Deallocate  Local  Frame 

UNLK  FP 

Return 

RTS 

Figure  2:  A  structure  for  calling  recursively  reentrant,  local- 
stack-frame  subroutines. 


HOLSUBROUTINES  IN  ASSEMBLER 

Now  we  get  to  the  really  fun  part:  how  do  you  design  68000 
assembly  language  routines  to  ensure  that  they  will  replace  C 
subroutines?  The  essential  structures  involved  are  relatively 
simple;  they  are  isolated  and  abstracted  in  Figures  1  and  2. 

Figure  1 :  A  structure  for  recursively  reentrant,  local-stack- 
based  subroutines. 


Push  Params.  on  Stack 

MOVE.L16(FP),-(SP) 
MOVE.L12(FP),-(SP) 
MOVE.L    8(FP),-(SP) 

Save  Reqs.  if  Necessary 

MOVEM.L  D0-D1,LVAR(FP) 

Jump  To  Subroutine 

1JSR    BOXINT 

Get  Return  Value 

MOVE.L    D0,12(FP1 

Restore  Any  Saved  Reqs. 

MOVEM.L  LVAR(FP).D0-D1 

Clean  Up  Stack 

LEA  12{SP),SP 
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The  first  indicates  the  overall  features  of  your  68000  routine. 
The  second  illustrates  how  to  make  calls  to  other 
subroutines,  including  Amiga  ROM  Kernal  modules.  These 
recipes  can  be  adapted  to  one's  own  needs. 


Let's  now  focus  in  on  some  of  the  details  of 
MACDOOD.ASM,  to  see  how  those  structures  are 
implemented,  and  to  illuminate  other  features  of  the  68000 
code. 

Perhaps  the  most  common  and  most  rewarding  strategy  for 
speeding  up  assembly  code  is  to  keep  as  much  data  as 
possible  in  registers.  This  works  best,  of  course,  with 
processors  that  give  you  many  general  purpose  registers. 
Instructions  work  faster  on  register  variables,  and  you  avoid 
the  expense  of  fetching  and  storing  information  from 
memory. 

The  68000  family  of  processors  facilitates  this  strategy  by 
providing  the  user  with  a  total  of  16  general  purpose 
registers.  More  precisely,  Motorola  has  given  us  eight  data 
registers,  DO  through  D7,  and  eight  address  registers,  AO 
through  A7.  Unfortunately,  many  assembler  instructions 
distinguish  between  the  two  types,  which  qualifies  the  term 
'general  purpose".  On  the  other  hand,  the  architecture  is  so 
much  cleanerlhan  Intel. 

I  have  made  full  use  of  registers,  as  the  initial  comments  on 
"registerusage"  indicate.  Of  the  address  registers,  A7  is 
always  the  "stack  pointer",  or  SP.  I  have  chosen  A6  to  be  my 
"frame  pointer"  (FP)  ~  we'll  be  hearing  more  about  it  shortly. 

Aside  from  these  structural  roles,  A2  is  the  only  other 
address  register  I  use.  I  need  it  because  the  variable  'box'  is  a 
pointer,  it  contains  the  address  of  a  sequence  of  memory 
locations,  as  opposed  to  what  is  in  those  locations.  We  will 
shortly  learn  the  advantage  of  this. 

The  other  registers  mentioned  are  used  more  or  less 
equivalently  to  variables  in  the  C  version  of 
'dooditO',  as  the  comments  point  out.  04  through  07  are 
used  for  different  variables  at  different  times. 

Listing  3  begins  with  a  number  of  'assembly  directives". 
Unlike  ordinary  assembler  commands  -  for  example,  MOVE  - 
they   do   not   produce   any    machine   code,   but    provide 
processing  instructions  to  the  assembler. 

The  XREF  statement  tells  the  assembler  that  certain  labels 
won't  be  found  in  this  particular  piece  of  code,  while  the 
XDEF  statement  tells  it  what  labels  it  should  make  visible  to 
the  linker.  As  you  can  see,  all  of  the  subroutines  have 
acquired  an  underscore  prefix  (as  in  '_Move').  The  Lattice 
compiler  expects  this,  as  do  most  C  compilers. 

Next,  there  are  a  number  of  "equates"  (EQUR  and  EQU 
commands)  which  function  very  much  like  '#define' 
statements  in  a  0  program.  They  also  help  to  make  the  logic 
of  the  code  more  readable  by  eliminating  "magic  numbers". 
These  equates  direct  the  assembler  to  replace  one  symbol 
with  another  throughout  the  listing  prior  to  the  assembly 
process. 


82 


Linking  C  with  Assembly 


Note  that  registers  are  treated  differently  than  other 
expressions:  I  need  EQUR  (as  opposed  to  EQU)  1o  establish 
that  the  string  'FP'  will  be  used  in  place  of  'A6'.  After  this  we 
find  a  "macro  definition'  of  INCR.  This  functions  equivalently 
to  the  C  '#de(ine  INCR'  macro  in  the  HOL  version  of  doodil(). 
After  the  assembler  has  performed  macro  expansion,  the 
statement 

INCR    d2 

will  become 

addq.l  #0FFS,d2 
cmpi.l  #N0DE*0FFS,d2 

bit     .001         *  a  UNIQUE  label  is  generated  each  time 
moveq   #0,d2 
.001: 

I  hope  to  explore  68000  macros  in  afuture  article. 

SETTING  UP  A  LOCAL  STACK  FRAME 

Cotrol  is  Iransfered  to  the  label  ■_doodit'  when  the  C  program 
calls  our  assembler  routine.  Figure  1  illustrates  this:  we 
allocate  a  local  stack  frame  and  provide  ourselves  with  some 
memory  storage  space  to  play  with. 

The  LINK  and  UNLK  instructions  are  the  primary  method  for 
creating  local  stack  frames  on  the  68000. 

The  instruction  LINK  FP,#LVAR  accomplishes  three  things. 
First,  the  previous  value  of  FP  is  pushed  on  the  stack; 
second,  the  new  value  of  SP  is  moved  into  FP;  and  third,  the 
value  of  LVAR  (-16)  is  added  to  the  stack  pointer.  Figure  3 
shows  what  the  stack  looks  like  after  the  execution  of  that 
instruction. 

After  all  this,  (a)  the  new  FP  points  to  the  location  of  the 
previous  frame  pointer,  (b)  your  local  variable  space  is 
available  at  negative  offsets  to  FP  (up  to  -16),  (c)  any 
parameters  that  were  pushed  on  the  slack  before  your 
routine  was  called  are  available  at  positive  offsets  to  FP,  and 
(d)  SP  is  now  a  local  stack  frame,  ready  lor  our  use. 

Make  special  note  that  the  value  supplied  to  the  LINK 
instruction  must  be  an  even,  negative  value.  Register  A7 
cannot  contain  odd  values.  The  UNLK  instruction,  when  we 
get  to  it,  will  undo  everything  LINK  has  done,  in  reverse 
order.  Since  we  are  automatically  saving  and  restoring  the 
previous  FP,  it  doesn't  matter  if  the  register  we  use  is  the 
same  used  in  the  rest  of  the  program.  Lattice,  in  fact, 
reserves  either  A5  or  A6  as  a  local  frame  pointer,  depending 
on  a  compile-time  switch. 

We  can  be  sure  'dooditO'  won't  cause  a  stomach  ache 
somewhere  else  in  the  C  code.  We  do  this  by  saving  the 
current  values  of  all  the  registers  we  intend  to  use,  and 
restoring  them  later  when  we're  all  done.  One  qualification: 
on  the  Amiga,  registers  AO,  A1,  DO  and  D1  are  regarded  as 
system  "scratch  registers".  This  means  that  the  calling  routine 
cannot  expect  their  values  to  be  untouched;  hence,  we  dont 
haveto  save  them. 
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The  68000  instruction  set  has  a  special  instruction  for 
circumstances  like  these:  the  "MOVE  Multiple"  or  MOVEM 
command.  With  it,  you  can  save  up  to  all  sixteen  registers  with 
a  single  instruction. 

The  MOVEM  instruction  can  save  registers  without 
predecrement,  as  in 

MOVEM.L  D0-D1,LVAR(FP) 

You  can  restore  them  by  reference  to  the  same  address 
'LVAR(FP)'  because  they  are  moved  in  the  same  sequence. 
When  you  use  the  instruction  with  predecrement,  for 
example, 

MOVEM.L  D2-D7/SP,-{SP) 

A7  is  the  first  register  moved.  When  you  restore  with 
postincrement,  A7  is  the  last  register  moved.  Think  about  it! 
Any  other  procedure  would  lead  to  chaos .... 

So,  before  we  do  anything  else,  we  execute  the  instruction 

MOVEM.L  D2-D7/A2.-(SP) 

This  loads  the  contents  of  registers  D2  though  D7  and  A2 
into  an  area  right  under  our  local  variable  space.  See  Figure 
3. 

When  we  finish,  before  we  UNLK,  we  will  execute  MOVEM.L 
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(SP)+,D2-D7/A2  which  will  restore  the  registers  to  the  way 
they  were  before  our  subroutine  was  called. 

ARRAYS  AND  LOOPS  IN  68000 

Now  that  it  has  taken  care  of  its  housekeeping  chores,  the 

code  can  turn  to  the  function  at  hand,  that  is,  executing  the 

■_doodit'  algorithm.     I'm  not  going  to  go  into  step-by-slep 

details  but  will  simply  highlight  some  of  the  more  interesting 

features. 

Please  keep  in  mind  that  '_doodit'  is  more  or  less  a  straight- 
forward translation  of  the  C  function  'doodit()',  and  therefore 
follows  the  same  sequence  of  operations.  To  appreciate  this 
isomorphism,  you  don't  really  need  any  understanding  of 
what  the  algorithm  is  doing.  All  you  need  do  is  see  how  each 
step  in  one  is  mirrored  in  copy-cat  step  by  the  other. 

Another  common  way  of  speeding  up  assembler  versions  of 
HOL  routines  is  in  the  calculation  of  array  offsets.  If  you  look 
at  a  disassembly  of  what  Lattice  C  does  with  'doodit()',  you  will 
see  a  lot  of  math  devoted  to  array  offsets. 

MAGDOOD.ASM  economizes  a  great  deal  in  this  regard  by 
using  a  special  68000  addressing  mode  called  "address 
register  indirect  with  displacement'. 

We  can  best  appreciate  it  by  reference  to  'box',  'box'  is  a  four- 
element  array  of  'coord'  structures,  each  of  which  in  turn 
consists  of  two  long  integers,  'x'  and  'y'.  Since  the  algorithm 
spends  a  lot  of  time  zipping  around  box[],  it  is  a  good  subject 
foroptimizatbn. 
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Figure  3  provides  a  snapshot  of  the  memory  locations 
containing  the  elements  of  the  box  array.  As  we  have  seen, 
A2  has  been  loaded  with  the  base  address  of  the  array; 
indeed,  A2  can  be  regarded  as  pointing  either  to  box  or  to 
box[0].x,  since  they  are  the  same  location. 


Figure  3:  Struct  coord  box[4]  in  memory,  showing  address- 
register-indirect-with-displacement  addressing  [02=2*8=1 6] 
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On  a  more  primitive  microprocessor,  it  would  be  necessary  to 
recalculate  the  value  of  A2  every  time  we  wanted  to  address 
other  elements  of  the  array,  or  other  components  of  their 
structures. 

The  68000  instruction  set  makes  such  calculations 
unnecessary.  It  allows  us  to  use  a  separate  data  register  to 
index  the  array  element,  as  well  as  a  separate  displacement  to 
select  out  the  particular  structure  component.  Suppose  we 
wantto  move  a  new  value  into  box[2].y.         .... 

First,  we  make  sure  that  D2  contains  the  proper  array  element 
offset.  Since  each  'coord'  structure  takes  up  eight  bytes  (2 
long  words),  we  put  2*8  =  16  into  D2.  And  because  'y'  is  the 
second  component  in  the  structure,  we  need  to  add  in  an 
additional4  byte  displacement. 

Given  that  D2  has  been  set  up  properly,  we  can  now  move 
the  new  value  in  with  a  single  instruction 

MOVE.L  VALUE.4(A2,D2) 

If  we  are  at  the  same  time  concerned  with  another  element  in 
the  same  array,  we  can  keep  that  offset  in  a  different  data 
register.  I  use  D2  to  keep  the  value  of  ffsf,  multiplied  by 
OFFS.  OFFS  is  8.  the  size  of  one  'coord'  structure,  and 
multiply  that  by  D3  for  "send".  Arent  you  glad  the  Amiga 
doesn't  use  an  8088?  lam! 

We  can  attain  similar  economies  when  it  comes  to 
implementing  loop  structures.  Recall  that  I  counseled  against 
making  loops  external  to  our  assembler  routine.  Otherwise, 
we  would  have  to  go  through  the  LINK,  save,  restore,  UNLK 
sequence  over  and  over  again.  But  also  we  would  have 
been  unable  to  use  the  68000's  singularly  efficient  loop- 
control  instructbns. 

In  particular,  the  DBRA  (Decrement  and  BRAnch)  instruction 
enables  an  elegant,  single  instruction  analogue  of  the  C  loop 

for(x-SIDE-1;x>.0;-x) 
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in  assembler: 

moveq  #SIDE-1,dO     •dO  =  x  =  SIDE-1 
XBEG:      . 


dbra    dO.XBEG      *-x; branch unlessx<0 


Each  time  the  DBRA  instruction  is  executed,  it  decrements 
the  associated  data  register,  tf  its  value  has  not  yet  reached  - 
1,  a  branch  is  made  to  the  label.  I  used  such  loops  hoping 
that  the  Lattice  compiler  would  utilize  DBRA,  but  alas  it  didn't. 

DBRA  is  just  one  member  of  a  whole  slew  of  "DBcc' 
instructions  with  various  condition  codes:  DBEQ,  DBNE, 
DBMI,  DBPL,  DBGT,  DBLT  and  more,  all  the  way  to  DBT 
(Decrement  and  Branch  if  True)  and  DBF  (Decrement  and 
Branch  if  False). 

DBRA,  in  fact,  is  identical  to  DBF,  since  the  condition  being 
tested  is  whether  the  asssociated  data  register  contains  -1 
(hexadecimal  $FFFFFFFF). 

CALLING  OTHER  LSF  ROUTINES 

The  last  feature  of  '_doodit'  we  will  examine  in  any  detail  is  the 
way  it  calls  other  local  stack  frame  subroutines.  The  structure 
outlined  in  Figure  2  is  our  guide. 

Usually,  we  will  need  to  pass  some  parameters  to 
the  routine  we  are  calling,  which  have  to  be  pushed  on  the 
slack.  Lattice  differs  from  some  other  HOL  implementations 
in  that  it  expects  them  to  be  pushed  on  in  the  reverse  of  their 
order  in  the  parameter  list  of  the  called  routine.  For 
'_boxinit(port,  color,  box)'  we  push  box  'first',  then  'color', 
finally  'port'. 

This  leaves  them  ordered  correctly,  from  low  to  high  memory, 
as  far  as  the  called  routine  is  concerned.  Note  that  one  of  the 
advantages  of  using  a  frame  pointer  is  that  the  offsets  for 
addressing  the  parameters  which  were  passed  to  us  are  NOT 
affected  by  stack  manipulations.  The  offsets  would  change  if 
we  were  using  offsets  to  SP. 

We  also  have  to  make  sure  that  we  push  the  right  kind  of 
values  on  the  stack.  Sometimes  a  routine  wants  a  pointer, 
that  is.  the  address  of  a  value,  and  sometimes  it  wants  the 
value  itself. 

Finally,  we  want  to  make  sure  that  the  AMOUNT  of  space  we 
allocate  on  the  stack  for  passing  the  parameters  is  correct. 
Lattice  C  simplifies  things  here  by  using  long  words  to  pass 
everything  but  floating  point  values.  This  is  another  reason 
why  I  avoided  floats  in  'doodit()'.  Other  HOL's,  of  course,  will 
have  different  practices. 

After  we  have  appropriately  loaded-up  the  stack,  we  have  to 
save  register  D0-D1/A0-A1  if  we  don't  want  their  contents 
corrupted.  I  personally  find  this  requirement  on  the  Amiga  a 
bit  irritating.  It  makes  much  more  sense  to  me  for  each 
routine  to  be  responsible  for  restoring  the  contents  of  all  the 
registers  it  uses.  But  I  wasn't  invited  to  join  the  Amiga 
software  design  team. 
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Anyway,  this  is  where  '_doodit'  finally  makes  use  of  the  16 
bytes  of  local  variable  space  it  reserved  itself  with  the  LINK 
instruction.  Not  all  of  that  space  is  actually  used.  I  gave 
myself  extra,  just  in  case  I  might  need  it. 

Now  at  last,  we  can  call  the  subroutine  in  question.  This 
automatically  pushes  the  return  address  on  the  stack,  so  that 
the  called  routine  finds  SP  pointing  to  the  stack,  and  the 
pushed  parameters  at  SP  offsets  starting  at  4.  Now  the  calling 
routine  will  LINK,  save,  restore,  UNLK,  just  like  our  routine. 
Indeed,  if  we  were  making  a  recursive  call,  it  would  be  our 
routine. 

All  C  routines  are  functions,  which  means  there  can  be  a 
return  value  as  likely  as  not.  New  values  may  also  have  been 
implicitly  "returned",  insofar  as  we  have  sent  pointers,  as 
opposed  to  values,  as  parameters.  That  is,  since  the  called 
routine  has  the  address  of  the  variable  in  question,  any 
changes  it  makes  in  it  will  be  felt  by  the  calling  routine. 

Lattice  C  uses  registers  DO  and  D1  for  holding  such  return 
values,  which  of  course  ties  in  with  their  status  as  scratch 
registers.  A  common  alternative  convention  is  to  allocate 
space  on  the  stack  for  the  return  value.  However,  in  Lattice  C 
at  least,  if  there  is  a  return  value,  as  there  is  with  '_bo5(init',  (it 
sends  back  a  new  value  for  color),  we  have  to  save  it  off 
before  we  restore  any  values  to  D0-D1/A0-A1 . 

Finally,  but  certainly  not  least  and  not  necessarily  last,  we 
have  to  restore  the  stack  to  the  value  it  had  before  we  starting 
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pushing  parameters  in  preparation  for  the  JSR.  If  we  are 
negligent  in  this  duty,  then  when  we  attempt  to  restore 
registers  in  concluding  our  routine,  we  will  load  absolute 
garbage  into  them.  Bingo,  blinking  *GURU* 

Once  again,  the  68000  instruction  set  supplies  us  with  a 
clever  command  which  is  often  the  most  efficient  means  of 
cleaning  up  the  stack:  the  "Load  Effective  Address"  (LEA) 
instruction.  It  calculates  the  address  of  an  operand  in  the 
ordinary  fashion,  but  then  uses  that  ADDRESS  instead  of 
what's  in  it.  Hence,  the  instruction  'LEA  12(SP),SP'  has  the 
effect  of  adding  12  to  the  value  in  the  stack  pointer,  thereby 
popping  off  three  long  words. 

"I 
TRAILING  CLOUDS  OF  GLORY 

But  enough  is  enough.  I  leave  to  you  the  pleasure  of 
uncovering  all  the  other  clever  and  not-so-clever  nuances  of 
MACDOOD.ASM. 

I  WILL  be  disappointed,  however,  if  I  haven't  encouraged 
others  to  concoct  their  own  assembly  language 
replacements  for  C  routines.  It's  a  lot  of  fun,  and  does  carry 
some  rewards.  For  what  it's  worth,  '_doodit'  in  the  assembler 
version  is  40  percent  smaller  than  'dooditQ'  in  C,  and  the  new 
DOODLE  is  approximately  37  percent  faster. 

Now  if  I  could  just  get  at  those  Amiga  Move  and  Draw 

subroutines... 

68000  ASSEMBLY  LANGUAGE  BIBLIOGRAPHY 

I  relied  on  the  following  books  when  working  out  the  details 
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of  the  interfacing  process  described  above.  You  may  find 
others  more  useful,  but  I  want  at  least  to  give  credit  where  it's 
due.  Any  idiocy,  of  course,  is  mine,  all  mine. 

Gerry  Kane,  Doug  Hawkins,  and  Lance  Leventhal.  68000 
ASSEMBLY  LANGUAGE  PROGRAMMING;  McGraw-Hill 
(1981):  approx.  400  pp.  This  huge  book  was  one  of  the  first 
out,  and  it  shows.  But  I  learned  a  lot  from  it.  and  continue  to 
lean  on  it. 

Lattice  C  Compiler  Manual;  Commodore-Amiga  &  Lattice 
(1985):  approx.  150  pp.  Lattice  has  been  in  the  C  compiler 
business  for  some  time,  and  even  though  their  current  Amiga 
offering  could  use  a  lot  of  improvement,  their  expertise 
shows  through  in  this  manual.  Section  5;  "68000  Code 
Generation"  is  especially  relevant  to  my  topic. 

M68000  16/32-bit  icroprocessor  Programmer's  Reference 
Manual,  fourth  edition,  Motorola/Prentice-Hall  (1984):  218 
pp.  This  is  an  absolutely  indispensible  reference  for  doing 
68000  code.  Don't  leave  home  wKhout  it. 

Leo  Scanlon.  The  68000:  Principles  and  Programming; 
Howard  Sams  (1981):  237  pp.  Although  much  slimmer  than 
the  Osborne  volume,  I  often  find  clearer  examples  and 
explanations  in  here.  My  explanation  of  LINK,  for  instance, 
was  cribbed  from  Scanbn. 

Listing  1  'doodle.def 

**  LISTING   1:      DOODLE.DEF 

*************************************** *«*******^ 


# Include 
#includ« 
flnclude 
flncluda 

#  Include 

#  Include 
# Include 
# Include 
# Include 
#lnclude 
#lnclude 
#include 
#includa 
(include 
(include 
(include 
(include 
(include 
(Include 

(define 
(define 
(define 
(define 

(define 
(define 
(define 

(define 
(define 
(define 
(define 


<exec/types .h> 
<exec/tas]cB  .h> 

<exec/librarlea .h> 
<exec/devlces .h> 
<d6vice»/)ceymap  .h> 
<graphics/copper .h> 
<graphics/diBplay . h> 
<3raphics/gf xbase . h> 
<graphics/toxt ,h> 
<grapbics/view.h> 
<graphicB/gelB .b> 
<graphicB/regionB .h> 
<devices/lceymap  .h> 
<hardware/blit .h> 
<lattico/Btdto.h> 
<lattice/ctypa .h> 
<librarles/dos .h> 
<intuition/intuitlon .h> 
<intuitlon/intultionbasa .b> 

INTERNAL  FALSE  /*  excises  dooditO 
NODE  4  /*  number  of  corners  per  figure 
SIDE  4  /*  number  of  figures  per  side 
INCR(a)  ((++a)<(NODE)?{a)  :  (0)) 

/*  wraparound  counter,  0 . .NODE-1 
PART  8  /•  reduce  sides  by  1/PART 
XM  400  /*  pixel  width  of  graphicB  area 
YM  160  /*  pixel  height  of  graphics  area 
XO  115     /*  X  origin  of  graphics  area 


*/ 
*/ 
*/ 

*/ 
*/ 
*/ 
*/ 
/ 


YO  25 

WHITE  1 
BLACK  2 


/*  y   origin  of  graphics  area  */ 
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•truot 

coord 

( 

int 

X, 

y; 

); 
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/*  oa«  pal]:  of  x,  y  coordinates  */ 


Listing  2  'doodl«.c' 

y ************************************** ********** 

*  LISTING  2:   DOODLE. C 

************************•***•*•****************/ 

linclud*  <doodla.def> 

/*  has  other  Includes,  defines,  etc.  */ 
struct  GfxBase  *Gf xBase ; 

/*  library  hase  pointers  */ 
struct  IntultlonBaso  *IntuitlonBase; 
struct  Window  *pwndo;      /*  my  prograjn  window  */ 
struct  NewWindow  progwlnd; 
struct  IntuiMessage  *mesEage,' 
struct  coord  box [NODE]; 

/*  basic  graphics  figure  */ 
int  color;   /*  color  we  draw  it  with  */ 

void  InltO;     /*  open  libraries  and  windows  */ 
int  boxinltO; 

/*  reinit .  colors,  corners,  and  maybe  quit  */ 
void  quitO;     /*  bottle  up  and  go  */ 
void  doodit  0 ; 

/*  the  routine  we  will  replace  with  6Slc  assembler 
*/ 

/iiii*iiiritiHt********  ********************  it********* 

**   MAIN  PROGRAM 

**   initialize  soma  stuff,  then  doodle  endlessly 

***********************************************/ 

isainO 

struct  RastPort  *port; 

initO; 

port  =  pwndo->RPort; 

color  =  WHITE; 

SetAPen(port,  color); 

RectFlll(port,  XO,  YO,  XO+XM,  YO+YM) ; 

color  =  boxinit (port,  color,  box); 

doodit  (port,  color,  box); 

J 

/********************************************** 
**  change  color;  reset  box  corners  to  original 
**   coords;  maybe  quit 

***********************************************/ 

int  boxinit (port,  color,  box) 

struct  RastPort  *port; 

int  color; 

struct  coord  box  [NODE]  ;  ^• 

{ 

quitO; 

if  (color  =  WHITE) 

color   =  BLACK; 
else   color   =   WHITE; 
SatAPen  (port,    color)  ; 
box[0]  .X  =   XO; 
box[0]  .y  =   YO; 
box[l].x  =   XO+XM/SIDE; 
box[l]  .y  =  YO; 
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box[2].x  =  XO+XM/SIDE; 
box[2].y  =  YO+YM/SIDE; 
box[3] .X  =  XO; 
box[3].y  =  YO+YM/SIDE; 
return (color) ; 
1 


#if  INTERNAL   /*  if  FALSE,  excises  doodit  from 
doodle  */ 

y ********************************** ************** 

**  draw  some  doodles  until  you  quit  (in  boxinit) 

*************************************************/ 

void  doodit (port,  color,  box) 
struct  RastPort  *port; 
int  color; 
struct  coord  box[NODE]; 

int  frat  =  0,  send  =  1; 
int  nux,  nuy,  x,  y,  xl,  yl; 

while (TRUE) 

{ 

for  (X  =  SIDE-1;  x  >=  0;  — x) 
for  (y  =  SIDE-1;  y  >=  0;  --y) 
( 

xl  =  XM*x/SIDE; 
yl  =  YM*y/SIDE; 
Move (port,  box[frfit] ,x+xl,box [frst] .y+yl) ; 
Draw(port,  box[scnd]  .x-l-xl,  box  [send]  -y+yl); 
} 
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nux  =  box[£rBt] .x  + 

(box [send] .X  -  box [ fr»t ] ,x) /PART; 
nuy  =  box[fr»t] .y  + 

(boxfscnd]  .y  -  box[fr»t]  .y) /PJiRT; 
if    (  (box[fr<it]  .X  «=  nux)    tc 
(box [f rat]. y  ™«   nuy)) 
{ 

color  =  boxlnlt  {port:,    color,    box}; 
/*  program  can  exit  here   */ 

frst   "   0; 

send  =1; 

• '  ■•         '  • . 

}  .... 

*!'*  -     -  .  I .     , . 

( 

box[£rat] .x  -  nux; 

box [frst] ,y  =  nuy; 

frst   -   IHCR(frBt)  ; 

send  =   INCR(Bcnd); 

) 
) 


fandlf 


**   check  for  axlt  •Ignal;  If  ao,  clean  up  and  go 

void  <juit() 

{     •  ■*  ^  ■ 

If    (meaaage  >    (struct   IntuiMesaaga 


CLOSEWINDOW) 


*) GetHsg (pwndo->UEBrPort) ) 
1£    (inieGEage->Class   == 
I 

KeplyMsg (message) ; 
CloseWindoH (pwndo) ; 
CloseLibrary(Gf xBase) ; 
CloseLibrary (IntuitionBase) , 
exit  (0)  ; 


} 


} 


**     open  appropriate  libraries  and  windows,  etc. 

*****ii1t******ti***it*  **********  ***1r*innn,***i,-i,-i,i,-i,i,t:/ 

char  ilib[]  =  "intuition,  library"; 

/*  assorted  atring  constants  */ 
char  glib[]  »  "graphics .library" ; 
char  fnvsg[]  =  "failed. \n"; 

void  initO 


if  ((IntuitionBase  =  (struct  IntuitionBase  *) 
OpenLibrary(ilib,  0))  =0) 


printf{"%s  *s" 

«xit(); 

) 


ilib,  fmsg)  ; 


if  (  (GfxBase  =  (struct  GfxBase  *) 

Opanl.ibEary(glib,  0))  ==  0) 
{ 

printf("%B  %s",  glib,  fmsg) ; 
CloseLibrary (IntuitionBase) ; 
axltO  ; 
) 
progwind.LaftEdgo      =0; 
progwind.TopEdge       =  0; 
progwind. Width         =  640; 
progwind. Height        =  200; 
progwind. DetailPon     =  0; 
progwind. BlockPen      =1; 
progwind. Flags         = 

ACTIVATE  I  SIMPLE_REFRESH  j  WIKDOWCLOSE; 
progwind. IDCMPFlags     =  CLOSEWINDOW; 
progwind. FirstGadget   =  NtJLL; 
progwind.  ChecJcMarJt     =  NULL; 
progwind. Title         = 

"Jim  Dandy  Doodle  All  The  Day"; 
progwind. Screen        =  NULL; 
progwind. BitMap        »  VVll.; 
progwind. MinWidtb      =  640; 
progwind. MinHeight     «  200; 
progwind. MaxWidth      -  €40; 
progwind. MaxHaight     =  200; 
progwind. Type  =  WBENCHSCREEN; 

if  (  (pwndo  =  (struct  Window  *) 

OpenWindow(fiprogwind) )  =  0) 
{ 

printf ("program  window  *s",  fmsg); 
CloseLibrary (GfxBase) ; 
CloseLibrary (IntuitionBase) ; 
exit  0  ; 


) 


} 
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********  **-m,**-l,*-l,i,-»i,inn,t*tnn,1,1,1t1,*t,1,tn,*tr**t,1,1,t,1,1,iH, 

**  LISTIHG  3:   MACDOOD.ASM 

*****************  ********  **^,1l^,^,^,^,^,^^,f,^,^,^^^,^^,^.^,^^^^ 


** 

** 

rogistar 

usage  (eea  C  varel 

on  of 

doodit  0)  : 

** 

** 

a2  -> 

box  (=  box[0]  .X) 

** 

ae  = 

frame  pointer  (FP) 

i 

*• 

a7  = 

Etack  pointer  (SP) 

** 

do  = 

X 

J" 

** 

dl  - 

y 

** 

d2  = 

frst 

** 

(*8  for  indexing  "coords, " 

** 

i.e.  double  long  words) 

** 

d3  = 

send  (ditto) 

** 

d4  s> 

xl;  nux 

** 

dS  = 

yl ;  nuy 

*» 

d6  = 

box[frst/scnd] .X  + 

xl 

** 

d7  = 

boxtfrst/scnd] .y  + 

yl 

** 

let  the 

linker  know  what  «e 

need. 

and  what  we 

** 

got  here 

xref  _Move,_Draw,  Jaoxinlt 

xdef   doodit 

FP 
SP 


equates 

equr   a 6 
etiur  a7 


*  a6  is  the  local  frame  pointer 

*  a7  is  the  stack  pointer 


LVIR  oqu 

NODS  equ 

SIDE  equ 

PART  equ 

XM  aqu 

IK  equ 

OFFS  equ 

**  68000  macro  version  of  ' #def Ine  rNCR(a) 

**  ((++a)<(NODE)?<a)  :  (0))  • 


-16  *  allocate  16  bytes  for  loc.  var. 
4   *  number  of  corners  in  basic  figure 
4    *  number  of  figures  per  side 
8   *  sides  reduced  by  1/PART  each  time 
400   *  pixel  width  of  graphics  area 
160   *  pixel  height  of  graphics  area 
8    *  index  amt  =  8  bytes  per  coord 


INCR  macro 
addq.l 
cntpl .  1 
bit 
moveq 

\8: 

endm 


#OFFS,M 
#N0DE*0FFS,\1 

#0,\1 


**    execution  begins  here 

_doodit : 

link     FP,#LVAR   *  alloc  local  stack  frame 
movem.l   d2-d7/*2,-(SP>  *  save  registers 


move . 1 

16  (FP)  ,a2 

* 

a2  =  address 

STRl: 

moveq 

#0,d2 

* 

frst  =  0 

moveq 

#0FFS,d3 

* 

send  =  1  (*S) 

STR2: 

moveq 

#SIDE-l,dO 

* 

X  =  SIDE-1 

XBEG: 

moveq 

#SIDE-l,dl 

* 

y  =  SIDE-1 

YBEG: 

move . 1 

d0,d4  '   '' 

* 

xl  s  X 

mulu 

#XM,d4 

* 

xl  =  x*xm 

ortxvH.  Cuisine^ 

Over    200   Recipes 

J^\  if  *-     r 

'Halt  anct  ^cta  own  reclvcs. 
Oraciniie  ancl  search  files 
bu  caiaaoru  or  Ingreaieni. 

Send  cnccn  crmoncu  oricr   {or 
s        i  29.95    to: 

^^^  ^       -1.0.  'Bor  700702 

Sciit  ^osc.a.  95170 


divu 

move 

1 

mulu 

divu 

laova 

1 

add.w 

move 

1 

add.w 

move 

1 

move 

1 

move 

1 

mo  vara. 1 

*  xl  =    (x*xm) /SIDE 

*  yl   =  y 

*  yl   =  y*yin 

*  yl   "    (y*yin)  /SIDE 

*  d6  =  boxCfrst] .X 

*  d6  =  box [fret] .x+xl 

*  d7  =  box [frst] .y 

*  d7  =  box [frst] .y+yl 


move . 1 
add.l 
move . 1 
add.l 
move . 1 

move . 1 


jsr 


#SIDE,d4 
dl,d5 
#YM,d5 
#SIDE,d5 
0(a2,d2) ,d6 
d4 ,  d6 

4(a2,d2)  ,d7 
dS,d7 
d7,-(SP) 

*  push  box [frst] .y+yl  on  stack 
d6,-(SP) 

*  push  box [ frst ]. x+xl  on  stack 
8(FP),-(SP)    *  push  port  on  stack 
dO-dl,LVAR(FP) 

*  keep  dO  G  dl  from  mischief 

Move 

*  move  cursor  (Amiga  ROM  module) 
0{a2,d3),d6    *  d6  =  box [ send]  .x 
d4,d6         *  d6  =  box [send] .x+xl 
4(a2,d3),d7    *  d7  =  box  [send]  .y 
d5,d7  *  d7  =  box[send] .y+yl 
d6,4(SE) 

*  move  box[scnd] .x+xl  into  stack 
d7,8{SP) 

*  move  boxtscnd] .y+yl  into  stack 

_Draw 

*  draw  line  { Amiga  ROM  module) 


movem.l  LVAR(FP) , dO-dl 

*  restore  dO  £  dl  (finally) 
lea      12(SP),SP 

*  clean  up  stack  (finally) 


^m&iMm§  Q@m^^to§™  ©  11  lid 
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Linking  C  with  Assembly- 


dtara     dl.YBEG  *  — y;  branch  unlsas  y  <  0 

dbra     dO.XBEG   *  --x;  branch  unless  x  <  0 
move-1    0(a2,d3),d4   *  nux  =  box£Bcnd].x 
sub.l     0(a2,d2>,d4 

*  nux  =  nux  -  box[frBt] .x 
divB      #PART,d4      •  nux  =  nux/EART 
ext.l     d4 

*  (duir^)  reiaalndar  in  upper  word) 
add.l    0<a2,d2),d4 

*  nux  =  nux  +  box[frst] .x 
move.l    4(a2,d3),dS   *  nuy  =  box[Bcnd].y 
Bub.l     4(a2,d2),d5 

*  nuy  =  nuy  -  box [f rat] .y 
diva      #PART,d5      *  nuy  =  nuy/ PART 
ext . 1     d5 

*  (dun^  remainder  In  upper  word) 
add.l    4(a2,d2),dS 

*  nuy  =  nuy  +  box [f rat] .y 
cmp.l    0(a2,d2),d4   *  box[frBt].x  ■«  nux? 
bne      MORE         *     If  not,  branch 

cmp.l    4(a2,d2),d5   *  boxtfret] .y  =  nuy? 
bne      MORE         *    if  not,  branch 

move.l    16{FP),-(SP)  *  push  box  on  stack 
move.l    12(FP),-(SP)  *  push  color  on  stack 
move.l   8(FP),-(SP)   *  push  port  on  stack 

jsr       boxlnlt 

*  ralnlt .  box  corners,  perhaps  quit 


lea      12(SP),SP    *  clean  up  stack 
move.l    dO,12{FP) 

*  gat  return  value  =  color 
b«q      FIHI 

*  color  =  0  means  we're  done 
bra     STRl 

*  branch  {reinit.  frst  i   send) 


*  box[frst] .X  =  nux 

*  box [frst] .y  =  nuy 

*  frst  =  INCR(frst) 

*  send  -  INCR(scnd) 

*  do  it  all  over  again 


FINI   movein.l   (SP) +,  d2-d7/a2 

*  restore  all  used  registers 
unlk     FP   *  deallocate  local  stack  frame 
rts  *  return 

end  •  that's  all,  folks! 


MORE: 

move . 1 

d4,0{a2,d2) 

move . 1 

d5,4(a2,d2) 

INCR 

d2 

INCR 

d3 

bra 

STR2 

•AC* 


Amazing  Writers ! ! ! 


Yes,  we  mean  you!  If  you  enjoy  Amazing  Ck^mputing  and  you 
are  using  your  Amiga,  you  have  completed  one  half  of  the 
qualifications  of  an  Amazing  Writer  for  Amazing  Computing™. 

We  are  interested  in  the  tasks  and  joys  you  have  experienced 
on  the  Amiga.  We  want  to  read  the  secrets  you  have 
unlocked.  We  want  to  experience  your  excitement  and 
enthusiasm.  If  you  own  an  Amiga,  you  have  already  qualified 
as  an  independent  thinker,  now  use  that  ability  to 
communicate  your  individual  story  or  idea. 

Amazing  Computing  ™  pages  are  filled  with  people  who  want 
to  reach  you  with  their  thoughts.  They  explain  a  portion  of  the 
computer  you  both  use  and  abuse,  because  they  found  it 
interesting. 

If  there  Is  something  in  the  Amiga  family  that  Interests  you, 
chances  are  there  are  people  who  would  enjoy  hearing  what 
you  have  to  say.  So  dont  sit  around  waiting  (or  others  to 
teach  you  what 

you  have  already  learned  by  hours  of  trial  and  error,  get 


excited  and  leach  the  rest  of  us. 

If  your  idea  or  explanation  is  of  interest  to  developers  and 
hard  core  hackers,  please  send  your  thoughts  and  a  request 
for  writer's  guide  lines  to:  AMICUS  Network  Editor. 

if  you  are  more  interested  in  general  use  of  the  Amiga  and  its 
products,  please  send  your  suggestions  and  ideas  to:  Editor, 
Amazing  Computing™ 


But,  either  way  post  them  to: 


PiM  Publications  Inc. 
P.O.  Box  869 
Fall  River,  MA  02722 


Please  include  a  hard  copy  and  an  electronic  copy  of  your 
article  for  review.  In  both  instances,  please  include  your 
name,  address  and  phone  number.  We  will  return  an  answer 
as  soon  as  our  editors  slop  shouting  about  how  great  your 
idea  is,  and  types  a  response. 


Amazing  Computing™:  your  resource  to  the  Commodore  Amiga 
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AMICUS  and  Fred  Fisti 
Public  Domain  Software  Library 

This  software  is  collected  from  user  groups  and  electronic  bulletin  boards  around  the  nation.  Each  disk  is  nearly  full,  and 
is  fully  accessible  from  the  Workbench.  If  source  code  is  provided  for  any  program,  then  the  executable  version  is  also 
present.  This  means  that  you  don't  need  the  C  compiler  lo  run  these  programs.  An  exception  is  granted  for  those 
programs  only  of  use  to  people  who  own  a  C  compiler. 


Note:  Each  description  line  below  may  include  something  like  "S-O-E-D",  which  stands  for  "source,  object  file,  executable 
and  documentation'.  Any  combination  of  these  letters  indicates  what  forms  of  the  program  are  present.  Basic  programs 
are  presented  entirely  in  source  code  format. 


AMICUS  Mate  1 

ABoilc  pre  Brum*:  Griphic* 

aoSdids  3d  solUs  rimJelino  pnjgram  Wsanple 

data  tiles 
Biocte  draws  txocte 

Cub«6  draws  cubes 

Durar  draws  pictures  In  the  Biyla  or  Durer 

FScape  draws  fractal  iandscap«e 

Hidden  3D  drawing  program,  w/  hidden  line 

removal 
JPad  sirrple  pain!  program 

OpUcaJ  draw  several  optical  illusions 

PalnlBox  sirrple  paint  program 

Shuttle  draws  trie  Shuttle  in  3d  wirelrame 

SpaceArt  graphics  demo 

Speaker  speach  utility 

Sphere  draws  spheres 

Spiral  draws  color  spirals 

ThreeDee  3d  (u  ndion  plots 

Topograph/        artili!^  topography 
Wheels  draws  circle  graphics 

Xenos  draws  tradal  pJanel  landscapes 


AB»>lc  program*:  Toolt 

AddrassSook      sirrple  database  program  tor  Ebddresses 
CardFile  sirrple  card  tile  database  program 

Demo  multiwtnct  wr  denw 

KeyCoiJes  shows  ksyoodes  lor  a  key  you  press 

MernJ  run  many  ASasic  programs  from  a 

menu 
MoraColon        way  to  get  more  ctilors  on  (he  screen  ai 

once,  using  aliasing 
shapes  simple  color  shape  designer  SpMkll 

speech  and  na/rata  demo 


ABaeic  program*:  Gsma* 


Brk:kOut 

dassk:  computer  brick  wall  game 

ahelto 

also  known  as  'go° 

Saucer 

sinple  shoot -errvup  game 

spelling 

simple  talking  spelling  game 

ToyBox 

selectable  graphics  demo 

ABieic  pre  gram*:  Sound* 

Entertainer 

plays  thai  turn 

HAI.9000 

pretends  Ifs  a  real  computer 

Polica 

simple  police  siren  sou  nd 

Sugarplum 

plays  "The  Dance  ot  the  Sugarplum 

Fairies- 

C  program*: 

ATerm 

sinple  lerminal  program,  S-E 

oc 

aid  to  compiling  with  Lattice  C 

decvnl 

opposite  o(  CON  VERT  tor  cross 

developers 

Dotty 

source  coda  to  the 'dotty  window  demo 

schoi 

Unix-style  lilenatro  expansion,  paitial 

S.O-D 

fasterfp 

explains  use  ot  tasl-lkwling  point  math 

FiiDato 

tixss  luture  dates  on  all  tiles  on  a 

disk.  S-E 

(reed  raw 

sinple  Woi1<bench  drawing  program,S-E 

QtiMem 

grjphk;  memory  usage  indicator,  S-E 

Orep 

searches  lor  a  given  suing  in  a  tHe.  with 

documentation 

ham 

shovw  an  the  hold-and-modlly  method 

0)  color  generation 

IBMZAmiga 

last  parallel  cable  transters  between  an 

IBM  arxl  an  Amiga 

Mandel 

Mandebrol  set  program,  S-E 

moire 

paltarned  graphk:  demo.  S-E 

objibc  makes  Uattks  C  objad  tile  syrrtMsis 

visible  to  Wack,  S-E 
quid<  quick  sort  strifes  routirw 

raw  example  sampie  window  I/O 

setlace  turns  on  intenace  npoe,  S-E 

sparks  qix-type  graphic  denno.  S-E 

Other  executable  progranu: 
SpeechToy         speech  detmnstration 
WhichFont         displays  all  availaftle  torts 

Texia: 

6BQS0  dascrbes  68030  speedup  board  from 

CSA 
Aliases  explains  uses  ol  the  ASSIGN  corrmand 

Bugs  known  bug  list  in  Lattk:e  C  3.02 

CLICard  relarancs  card  tor  ArrigaOOS  CLI 

CLIiDomtnanCs    guide  to  using  the  CLI 
Commands         shorter  guide  to  AmigaOOS 

CLI  commands 
EdCommands     guide  to  the  ED  editor 
Filenames  AmigaDOS  filename  wildcard 

conventions 
HaltBright  explains  rare  graphics  chips  that  can  do 

more  colors 


ModemPlns 

descrption  01  the  serial  port  pinoil 

RAMdisks 

tips  on  sotting  up  your  RAM :  disk 

ROMWacii 

tips  on  using  ROMWack 

Sounds 

explanation  d  tte  Instnjment  demo 

sound  lile  format 

Speed 

ralulation  of  the  Amiga's  CPU  and 

custom  chip  speed 

WackCmds 

!ps  on  using  Waek 

AMICUS  Disk  2 

Cprogrtmt: 

alib 

AmigaDOS  object  Ibraty  manager 

,S-£ 

ar 

text  file  arctiive  program,  S-£ 

Itxobi 

auto-chope  executable  tiles 

shell 

sirrple  CLI  shell,  S-E 

sq.  usq 

file  oottpresston  programs,  S-E 

YachtC 

a  tamiilar  game.  S-E 

Make 

a  simple  'mala'  programming  utility,  S-E 

Emaes 

an  early  version  ol  Ihe  Amiga  text  editor. 

S-E-D 

Assembler  programs: 

beaarch.asm       binary  search  code 

qsort.asm  Unix  compatble  qsorlQ  function,  source 

and  C  test  program 
se(imp.asm  setjmpO  cix^  <<>'  Lattice  3.02 
SVprintt  Unix  system  VoompatibieprintfO 

trees.o  Unix  corrpalbie  IreeQ  furKtbn.  O-O 

(TTiis  diskformerty  had  IFF  spedfkatkxi  liles  and 
examples.  Since  this  spec  is  constantly  updated,  the  IFF 
spec  tllee  tiave  been  moved  to  their  own  disk  in  the 
AMICUS  collectnn.  They  aie  not  hare.) 

John  Draper  Amiga  Tutariala: 

Animate  descibes  animation  algodthirE 

Gadgets  tutorial  on  gadgets 

Menus  learn  about  Intuition  menus 

AMICUS  Disk  3 

C  program*: 

Xr«l  a  C  cross-relerence  gen.,  S-E 

ftftwiw 


exlra-halt-pfiaht  chip  ofx  demo.  S-E 


Chop 

tninode  (chop)  files  down  to  size.  S-E 

Cleanup 

removes  strange  charadBrs  from  text 

files 

CR2LF 

converts  carnage  returns  to  line  teeiJs  in 

Amiga  files,  S-E 

Error 

adds  conpile  errors  to  a  C  tile.  S 

Hollo 

window  ex,  from  the  RKM,  S 

Kermrt 

generic  Kemit  Irrplementation,  flakey, 

no  terminal  mode,  S-E 

Scales 

sound  demo  plays  scales,  S-E 

Skews 

Rubik  cube  demo  In  hl-res  odors,  S-E 

AmlBaBaaicProga(iir) 

Automata  cellular  automaia  simulalion 

CrajyEights        cardganre 
Graph  function  graphing  programs 

WDcMngHour      a  game 

ABatiC  program*: 

Casino  games  ol  poker,  blackjack,  dice, 

and  crape 

Gomotoj  also  known  as  'olhello' 

SaOotage  sort  d  an  adventure  game 

Executable  programa: 

Disassem  a  6S00O  disassentiler,  E-D 

c^jSlido  Eh(j*s  a  given  set  of  IFF  pictures,  E-D 

Arrange  a  text  lormaltlno  program  E-D 


AaaamUer  prograrru: 

Argolerm  a  temlnal  program  with  speech  and 

Xmodem.  S-E 


AHCUSDIIk4       Riea  from  the  original  Amiga 
Technical  BBS 

Nota  thai  some  ol  these  filee  are  okt,  and  refer  lo  okter 
versions  of  the  operating  system.  These  f iee  came  from 
the  Sun  system  that  served  as  Amiga  technical  support 
HQ  for  most  of  1985.  These  files  do  hot  carry  a  warranty, 
and  are  for  educational  purposes  only.  Of  course,  tttars 
not  to  say  they  don1  work. 

Conplele  and  nearly  ip-to-dala  C  source  to  Image.ed', 
an  early  verskjn  o<  the  teon  Editor,  TTilt  is  a  Ittle  llaKy,  but 
corrpileB  arxl  runs. 

An  Intuition  demo,  in  lull  C  source,  induding  IDes: 
demomenu.c.  demomenu2.c,  demoreq.c,  ge(ascii.c 
ktemo.c,  idBmo.guide,  klerno.make,  kJemoaU,  nodo3.c, 
andbiwrite.c 

addmem.c  add  external  memory  to  the  system 

bobtest.c  example  of  BOB  use 

consolelO.c  console  10  exanple 

creaport.c  aeata  and  delete  ports 

creastdi.c  create  standard  VQ  requests 

creataslu:  creating  task  exanples 

disKbj:  example  ol  Xrxk  read  and  write 

dotly.c  source  to  the 'dotty  window  dema 

duat>lay.c  dual  playfleld  exarrple 

fbod.c  Rood  fill  example 

lreerT^.c  old  version  ol  Ireemap' 

geltools.c  too£  lor  VSprites  a;xl  BOBs 

gfxmemj;  graphb  memory  usageindicalor 

helb£  window  example  from  RKM 

inputd«v£  adding  an  Input  handler  to  the  Input 
stream 
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joyslik-c  reading  the  joyslick 

heyCdf  direct  kaytioanl  reading 

layertu  .c  layers  examples 

mousporlc         leel  mouBS  port 

Qwnlb^C 

(wr)lb.asm         exaniple  o<  maWng  your  own  Ibraiy  wiiri 

Lattice 
paralest.c  tests  parallel  port  commands 

ssritesix  tests  serial  port  corrmands 

$erisaiTip.c  eiarrfna  ol  serial  port  use 

prinlntr.c  sample  prinler  Intortaco  code 

prttjaSB.h  primer  device  delinitions 

regintes.c  region  tefii  program 

sailaca.c  source  to  interlace  oiVoW  program 

salpa/allel.c        set  the  an  rioulesol  the  parallel  port 
SstSeriaI.c  set  the  attributes  (parity,  data  bits]  o(  tl» 

serial  poit 
tingplay,c  single  pfayliekJ  eiamp<e 

speectTtoy.c        source  to  narrator  and  phonrt  Ics  demo 
tiitnedely.c  sirmpie  timer  demo 

timer.c  exec  support  timer  lunctions 

BmrstiK.c  more  exec  support  timef  functions 

WtiictiFonLc       bads  and  displays  all  availabla  system 

lonis 
process.!  and  prtljase.i  assmeblof  include  tiles: 
aulorqslr.txt         warnings  ot  deadtocks  wlttt 

autorequesters 
conaoleO.txt      copy  ot  ttie  RKM  consols  \iO  ctiapter 
disMonUii  warning  c<iJisKtont  loading  bug 

tulltuncWt  felol#09lines.  macros,  tundbns 

irputdev.txl         prelininary  copy  ot  the  input  device 

chapter 

License  irlormation  on  Worktjeoott  dislribulton  license 
prinlBT  p^e-  reiaasa  copy  o(  Iha  chapter  on  printer  flitvers. 
from  RKM  t.t  vufd.tit   'ditr  o(  .lei  file  changes  Irom 
verelom.Oiol.l    v28¥l  .d« 'dilT  o(  incJoda  file  changes 
fromvefSbnSatot.O 


AMICUS  Disk  5    File*  from  th»Aniig« Unit/ 
Amiga  Inlarmation  Ketworli 

igole  thai  sorm  ol  these  files  are  old.  and  rrisr  to  otder 
versions  of  the  operating  systenx  These  Filee  are  from 
Amiga  Link.  For  a  time.  GomnoOote  sifJpoiled  Aniga 
Unk.  aka  AIN.  for  online  devebper  tedinical  support,  It 
was  only  up  and  running  for  several  weeks.  These  tiles 
do  nc«  carry  a  warranty,  and  ajo  lor  educatbnal  purposes 
only.  Ol  course,  mat's  nol  to  say  they  doni  work. 

A  demo  of  InhilUon  imnu*  called  'imnudemo',  in  C 
•ourn 

wher6is.c  find  a  file  tea/cfiing  al  subrfirectories 

txiCitesLc  BOB  progiamming  exanpis 

sweep.c  sound  synthesis  eiaitpie 


Assembjei-llle*: 

myoev  .asm         sample  dwiee  dnvof 


mylb.asm 

sarrple  Ibrary  example 

mytb.1 

mydev.l 

asmsupp.! 

macfoe.i  assembler  include  tiles: 

Text*: 

amig  at  ricks 

tps  on  CLI  commands 

extdiek 

BiternaJ  disk  spedlballon 

gatmeport 

game  port  spec 

parallel 

parallel  port  spec 

serial 

serial  port  spec 

vt.1t«xlatB 

list  o(  new  features  1  n  vorsiofl  1 .1 

vl.in.txt 

•diir  ol  incluoe  tile  changes  from  version 

1.0  to  1.1 

Files  lor  building  your  own  printer  drtvers,  Irvrludlng 
dospedal.c  epsondata.c,  init.asm,  prinler.c,  printer.link, 
prinlertag.3sm.rond«.c,  andwait.asm.  This  disk  does 
contain  a  number  ol  files  descnbing  the  IFF  specs  cation. 
These  are  not  the  latest  and  greatest  files.  Iwt  remain 
hero  lor  historlcaJ  purposes.  They  Include  text  liles  and  C 
source  examples.  The  latest  IFF  spec  Is  elsewhere  In  this 
Ibraiy. 

AMICUS  Disli  6  IFF  Picture* 

Tliis  disk  includes  the  DPSIide  pfogram,  wnieti  can  view 
a  Qiven  series  of  IFF  pi(^ures.  and  Ihe  'showpic'  program, 
which  can  view  aach  lite  at  the  dck  of  an  icon,  and  the 
"savoibirr  pfogram.  to  tum  any  screen  into  an  IFF  pKturo. 
The  pictures  include  a  scraen  trofh  ArticFox.  a  [Degas 


dancer, theguysal  EladronicArts. agoriiia.hof5os,King 
Tul.  a  lightfwuse,  a  screen  from  MaiOle  Madness,  the 
Bugs  Bunny  Martian,  a  still  from  an  okJ  movie,  the  Dire 
Straits  moving  company,  a  screen  from  Pinbalt 
Contruction  Sel.  a  TV  nov»caster,  Ihe  PaintCah,  a  wojkJ 
map,  a  Porsche,  a  shutllB  mission  patch,  a  tyrannosaurus 
rex,  a  planet  view,  a  VISA  card,  and  a  ten-speed, 

AMICUS  Disk  7  DigiView  HAM  demo  picture  disk 

This  disk  has  pictures  tromthe  DigiViow  hokJ-and-modtfy 
vbeo  digitizer,  n  includes  the  ladies  with  pencils  and 
buypops,  Ihe  young  ijirl,  the  buibozer.  the  horse  and 
twggy,  the  Byte  cover.  Ihe  dictionary  page,  the  robot  and 
RoOert.  This  includes  a  profiram  to  viav  each  picture 
separately,  and  all  together  as  separaie,  slidable  screens. 


fiMICUS  Pisk  8 
C  progrsma; 
Browse 

Crunch 

IconExec 

PDScreen 
Dump 

SelAltemate 

SelWindow 

Small  Clock 
Scrimper 


view  ta>d  liles  on  a  disk,  using  menus 

S-E-D 

rerrwvas  comments  and  while  space 

from  C  files.  S-E 

EXECUTE  a  series  ol  commands  from 

Worttbenrfi  S-E 

dumps  Rastport  of  highest  screen  to 

printer 

sals  a  second  image  tor  an  icon,  when 

didied  ones  S-E 

makas  windows  tor  a  CLI  program  to  run 

under  WorXbendi  S-E 

a  small  digital  clock  that  sits  in  a  window 

menut>ar 

Ihe  screen  prinler  in  the  lourth  Amazing 

Compullng.  S-E 


'inluition',  'layers',  •malhftp*.  matrieeodoUbas', 
'mathieeeslngbas',  'mathlrans",  iJOlgo'.  limer'  and 
Irarvlator*. 

AMICUS  Disk  9 


Amiga  Bask  Program*: 

(Note;  Many  of  these  programs  are  present  on  AMICUS 
Disk  1 .  Several  of  these  were  converted  lo  Amiga  Sasb, 
and  are  included  hare.) 


AddrassBook 

a  simple  address  book  database 

Ban 

draws  aball 

Ooad 

program  to  cxxivert  CompuServe  hex  liles 

to 

binary,  S-0 

Que 

the  game.  Intuition  driven 

CobrArt 

art  drawing  program 

CeluxeDraw 

the  drawing  program  in  the  3rd  issue  o< 

ArrHZing  Computing.  S-D 

Eliza 

conversational  oonputer  psychologist 

Othelb 

the  game,  as  known  as  'go' 

RalMaze 

30  ralmazs  game                             ..«- 

ROR 

boggiing  graphics  demo 

Shuttle 

draws  3D  p'ctures  ol  the  space  shuttle 

Spelling 

simple  spelling  program 

YoYo 

wierd  zero-gravity  yo-yo  demo,  tracks  yo- 

yo 

to  the  mouse 

Executable  program*: 

30cubo 

Modula-Z  demo  d  a  rotating  cube 

AKbon 

sets  a  second  bon  Imago,  displayed 

when        the  icon  is  dicksd 

AmigaSpall 

a  sbw  txit  simple  spelling  checker.  E-D 

arc 

the  ARC  file  oompressbn  program. 

must-have  for  telecom,  E-D 

Bertrand 

graphics  demo 

disleaivage 

a  program  to  rescue  trashed  dsks.  E-D 

KwikCopy 

a  quick  but  nasly  disk  copy  program: 

Ignores  enws.E-0 

UbDir 

tsls  hunks  n  an  object  liie  E-D 

SavelLBM 

saves  any  screen  as  an  IFF  picture 

e-D  ?? 

Screen  Dump 

shareware  screen  dump  progranx  E  only 

StarTerm 

versbn  ao.  term  prograntv  Xmodem 

E-D 

Text*: 

LalliceMain 

tips  on  lixing  _main.c  in  Lattice 

GDIskOrive 

make  your  own  5  1/4  drive 

GuiuMed 

explains  the  Gum  numbers 

UI3.031XIOS 

bug  list  o!  Lailica  C  versbn  3.03 

MForgaRav 

user's  view  of  the  MicroForge  hard  drive 

Prints  poolef 

EXECUTE-based  print  spooling  program 

.BMAP  niea: 

These  are  Ihe  necessary  links  t)etween  Amiga  Base  and 
the  system  Ibraries.  To  take  advantage  oi  irw  Amiga's 
capaoiiitiee  in  Base,  you  need  these  fibe.  BmaPs  are 
included  for  "disr.  'consolo'.  'rJisWonf,  'eiec^,  'icon', 


Amiga  Basic 

Program*; 

FlighlSim 

sirrpie  night  simutator  prog  ram 

HuePaletle 

explains  iHue,Saturalbn,  and  Intensity 

Reqyester 

ex,  ol  doing  requesters  from  Amiga 

Basic 

Scroll  Demo 

demonstrates  SCTOI  ting  capabilities 

Synthesizer 

sound  program 

WorbMap 

draws  a  map  ol  the  world 

Executable  prograiru: 

BoingI 

latest  BoingI  demo.with  selad£ble 

speed, E 

BrushJC 

txinverts  an  IFF  txush  to  0  data 

Instructions,  Inmalizalbn  code,  E 

BnjshSloon 

converts  IFF  brush  to  an  bon,  E 

Dazzle 

graphics  demo, tracks  to  nwuse,  E 

DeciGEL 

assanbler  program  tor  stopping  &S01 0 

errors,  S-E-0 

Klocii 

menu-bar  docK  and  date  display.  E 

Hfe 

the  game  ol  life,  E 

Times  et 

Intullbntiased  way  lo  eel  the  timie  and 

dale.        E 

MEmacs 

another  Emais.  more  orionled  to  word 

procaesing.  S-E-D 

MyCLI 

a  CLI  shell,  works  without  Ihe 

Woriibeneh,  S-E-D 

Tent*: 

FnctnKeys 

HIackerSIn 

ISI6801D 

PrinterTip 

StartupTIp 

XfrmrRavJew 


explains  how  to  read  function  keys  from 

ArngaBasb 

explains  how  to  wn  Ihe  game  'hacker* 

guide  lo  Installing  a  680 10  in  your  Amiga 

tps  on  sending  escape  se()uences  lo 

your  printer 

tips  on  satting  up  your  starti^ 

sequence  lib 

lis!  o(  prograrre  IhaJ  work  with  the 

Trans  lormer 


Prinler  Drivefa: 

Printer  drivers  for  the  Canon  PJ-1 080A,  the  C  Itoh 
Prowfiter,  an  irrproved  Epson  driver  that  eliminates 
streaking,  the  Epson  LQ-BOO.  tha  Gemini  Star-10,  the 
NEC  3Q25A.  the  Okidata  ML-92.  the  Panasonic  KX-PIOn 
lamiiy,  and  the  Smith-Corona  D300.  with  a  document 
dasciling  Ihe  installation  process. 

AMICUS  Disk  10         Inatrtiment  aound  damoa 
This  is  an  Icon-driven  demo,  drcuialed  lo  many  dealers. 
It  Indudes  the  sounds  ot  an  acousib  guitar,  an  alarm,  a 
ban)o.  a  bass  guitar,  a  boinK  a  caJibpe,  a  car  horn. 
daves.  water  drip,  ebctric  guitar,  a  Auta,  a  harp  arpege.  a 
kickdmm.  a  marirrtia,  a  organ  irinai  chord,  people 
talking ,  pigs,  a  pipe  organ,  a  Rhodes  piano,  a  saxophone, 
a  star,  a  snare  dmm.  a  steel  dntm  t>ells,  a  vbrophone.  a 
vblin,  a  wailing  guitar,  a  horse  whinny,  and  a  wr^Ue, 

Fred  n.h  Disk  1: 

amigadamo   Graphical  benchmark  lor  conparlng  airigas. 
Bimpte  communicatkxts  program  with 
Xmodem 

simulatbn  ot  the  'kinslb  thlngy  with  balls 
on  strings 

Shows  off  use  of  hob-and-modify  node. 
Dhrystone  benehmart  program. 
Sourca  to  tha  'dotty  window'  Oemo  on  the 
Worttbench  disk. 

A  sman  "painr  type  program  with  lloee. 
boxes,  etc. 

JoTin  Draper's  Gadget  lutorial  program 
Graphical  memory  usage  display  program 
demonstrates  'Extra-HaH-Brite"  mode.  If  you 
have  it 

simple  window  demo 

accessing  the  Motorda  Fast  Floating  Point  I 
brary  Irom  C 

Sampb  program  for  designing  cobr 
palettes. 

Demonstrates  use  c<  Ihe  tracKoisk  driver. 
John  Draper's  requester  tutorial  and 
axampla  prograni 

Sampb  speech  demo  program.  Slr^iped 
down 'speech toy . 
Another  speech  demo  program. 


amigaterm 

balls 

colortui 

dhrystone 

dotty 

Ireedraw 

gad 

gtxmem 

hatbrtle 

heib 
latHp 

palette 

IracMisk 
requesters 

speecfi 

speech  toy 
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1,^ 


xlisp 


bgrep 

Dison 

bm 

grop 

ksrmll 

MyCLI 
mandel 


Fred  Fi.h  Di.k  2; 

aJib  Oblect  module  Ibrarian. 

cc  Ur  ix.liko  frontend  for  Uttioe  C  compiler. 

Obug  MacmtiasedCdabugging  package. 

Machine  independent 
make  Sitsel  at  Unix  make  command. 

maka2  Anolhef  make  subse*  command, 

m«3x»macs   Small  version  ol  emacs  editor,  with 

macros,  no  extensionG 
pottar  PonaOetiloarcfirvef. 

xf  OECUS  C  cross  relatenca  ulillly. 

Fred  Fl.h  Dink  3: 

flotfiie  Golhic  lont  banner  prinlar. 

fofl  A  'roir  lype  text  lormalter. 

tt  A  vary  lasl  text  (ofrnaHer 

cfonh  A  tiighty  portable  iDflh  Irrplemenlallon.  Lots 

ot  goodies. 

Xfisp  1 .4.  not  working  correctly. 
FrifdR»hDiak«: 
banner  Prints  horizontal  banner 

A  Boyer-Moore  grep-like  utility 

CNU  Unix  replacement  'yactf ,  not  worWnj. 

Another  Boyer-Moore  grep-liks  util  ity 

DECUSgrep 

sinplo  port^le  KermJt  with  no  connect 

mode. 

Replacement  Ct I  tor  tne  Amiga.  Version  t.O 

A  Mandebrol  sal  program,  by  FtoOert  FrencH 

and  HJ  Mical 
Ffed  n»h  Dl.k  5: 
cons  Console  device  demo  prooram  with 

supporting  macro  routines, 
Ireernap         Creates  a  visual  diagram  o(  free  memory 
Input.cSev       sample  Input  handler,  Irape  key  or  lieusa 

events 
joystic*  ShoswGhcwtoseltfjthagamepondevks 

as  a  joystick, 
keyboan)       Oemonslrates  dire«  oommunicaliorB  with 

the  keytxiard. 
layers  Shows  use  d  the  layers  Ibraiy 

mandelbrot     IFF  Manaebrol  program 
mouse  hooks  up  mouse  to  right  joyeick  port 

onB.window   console  window  demo 
parallel  Oomonsl/ales  access  to  the  parallel  port, 

printer  opening  and  using  the  printer,  does  a 

screen  durrp,  no(  working 
printjuppoit 

Prinler  support  routines,  not  working, 
proctest         sanpie  process  crealon  code,  not  working 
regk>n  derrxK  sptri  drawing  regbns 

sample(onl     sample  (ont  with  Into  on  creating  your  own 
ssfial  Demos  Ihe  serial  port 

EinglePlaytieid 

Craales  320  X  200  ptaytield 
speecMoy     laleel  version  o(  cuts  speech  dwno 
sfBsch.demo 

sinrplitled  verskin  ot  Bpeectiloy,  ¥rtlh  O 

requests 
te(t.demo      displays  available  fonts 
liiTier  demos  timer.device  use 

Irackdisk        demos  trakcdiskdiivef  ^ 

FredFlshPliilcS: 

compress       Ttka  Unix  conpress.  a  tile  squeezer 
dadc  anakig  dock  impersonator 

microamacs  upgraded  version  o(  microemacs  trom  disk  2 
mun  removaB  multtJe  occurlng  lines  In  tiles 

scales  demos  usinj  sound  and  audio  lunctlons 

selparallel      Altows  changing  parallet  port  pa/amBtors 
ee<sarial        Altows  changing  serial  port  parameters, 
sortc  qufcksort  based  sort  program,  in  C 

stripe  Strips  comments  and  extra  whilespaM  from 

C  source 


This  disk  contains  Ihe  eiecutablas  tt  tlw  garra  Hadt, 

varaion  1.0.1. 
Fr?d  nth  Disk  e: 

ThB  disk  contains  Ihe  C  source  lo  Hack  on  disk  7. 
FredFijhPi.kB. 

moire  Draws  riDlne  patterns  in  black  and  wtite 

MVP-FORTH 

Mountain  View  Press  Forth,  version 

1.00.03A.   A  shareware  version  01  FORTH 

Irom  Fantasia  Systems, 
proll  a  more  pwrarlul  text  tormattir^  program 

setlaoe  Pmgram  to  toggle  interlacB  mode  on  and  ot(. 

sk«*o  a  nAiCs  cube  type  demo 

sparks  moving  enaks  Graphics  demo 


conquest        An  interstellar  adventure  simulalkin  garna 

dehei  convert  a  hex  lila  lo  binary 

filaiap  Patcti  program  tor  any  type  ot  file. 

laobj  SIrp  gartiage  otf  Xmodem  transferred  files. 

iff  Routines  to  read  and  write  iff  lormat  files. 

kl  simple  directory  program 

Is  Minimal  UNIX  Is.  wthUrix-stytewildcatding. 

inC 
sq.usq  tile  SQuaeze  and  unsqueeze 

trek73  Star  Trek  game 

yachlc  Dice  game. 

Fred  Fish  Disk  It: 
dpslids  slide  show  program  lor  displaying  IFF 

images  with  misceiianeous  pictures 
Fred  Rsh  Disk  12: 
amiga3d        Shows  a  rotating  3  dimensional  solk) 

"Aniga  sign". 
A^goTerm      a  termir^l  emulator  program,  written  in 

asserrcler 
arrcwSd         Shows  a  rotating  3  dimensional  wire  frame 

arrow. 
Id4  d  trectory  I  ist  ing  program 

IconExec 
SetWindow    two  ^rograriB  for  launching  programs  from 

Wo'kbencti  that  presently  only  vwrk  undar 

CLI. 
S«(Allemaia  Makes  an  Icon  show  a  second  imaee  when 

dickedonce 
Sla/Ter m        terminal  emulator,  w«ti  ASCII  XmoderT\ 

dialer,  more. 
Fred  Fish  Dism^; 
A  Bundle  of  Sask:  programs,  including: 


Jpad 

imodem 

ror 


toybox 

3dsalids 

amgseql 

box 

circle 

cutpasia 

drmr 

ezterm 

gorrxiku 

halley 

\ai 

mouse 

pinwheel 

rgb 

salestatk 

sketchpad 


azspeak  mandlabrol 

addbook  ajgetxa 

amiga-ccpy  band 

brickout  canvas 

cokjrcircles  Copy 

date  dogstar 
dynamictriangle 

frllitxiEler  fractal 

dart  haitui 

liauntadM  hidden 


mandel 

Orthelki 

Qbox 

rgbleet 

shades 

spacsart 


speochaasy  spell 

strper  superpad 

terminai  termlost 

triangle  wheels 


menu 

patch 

randorrvcirclee 

Rord 

shapes 

speak 

sphere 

suprshr 

lom 

xenoe 


txxince 

caidtl 

cutwst 

dragon 

Eliza 

tscape 

hajgooo 

loin 

minipain! 

pena 

Readme 

sabotage 

shuttle 

epeach 

spiral 

talk 

topography 

imoslriper 

(note:  soma  prograiTB  are  Abaslc,  most  are  Arrigatsasic, 

and  some  progranB  are  presented  In  txjth  languages) 

Fred  Rsh  Disk  H: 

updda  cf  *  t  a  indudee  C  sourcs  to  a  luH 

hidden  s  urtace  removal  and  3D  graphcs 

Source  tor  a  function  that  genaraigs  a  beep 

sound 

extracts  text  tn>m  within  C  source  files 

demonstrates  N  dimensbnai  graphics 

update  of  disk  10.  a  file  patch  utility 

update  of  disk  1,  graphk:  memory  usage 

Indlcolor 

converts  IFF  brush  fHec  to  Image  stnici,  in  C 

text 

simple  ANSI  VTt  00  temlnal  emulator. 

in  80  X  2S  eaaen 

sinple  Unbt  'csh'  style  shell 

mostly  Unix  compalble  termcap' 

krplementsdion. 


arrigaSd 

beep 

dex 

dimensions 
liiezap 
gtxmem 

9l 
pdterm 


shell 
termcap 


FredRshPlilcIS: 

Blocs  graphics  demo,  l)(S  Ur^  Venrs' 

Ckic*  siniDle  digital  dock  program  (or  the  (He  bar 

Dazzle  An  aight-tok)  symmetry  dazzlei  program. 

Really  prertyl 
Fbh  double  buttered  sequence  cycle  animatksn 

otalish 
Moncpoty       A  feaKy  nice  monopoly  game  writlon  in 

AtMSC. 
OkidataDump 

OkldaU  Ml.g2  driver  and  WorkBench  screen 

dump  program. 
Polydraw       A  drawing  program  writlen  in  AbasC. 
Polylractals    A  Iradal  program  wrinan  In  AbasC 


Frednsh  Disk  16: 

Complate  copy  ol  the  latest  developer  IFF  disk 

Fred  n.h  DM  17: 

The  MawTakDigi-View  video  digitizer  HAM  demo  disk 

Fred  n»h  Disk  IB; 

AmigaDisplay  dumd  teminal  program  with  ball. 

salectafile  fonts 
Ash  Prerelease  CShell-liks  shell  program, 

history,  bops,  ate 
Browser         wanders  a  file  tree,  displays  tiae,  al  wth  Ihe 

mouse 
UC€6Ot0      docs  on  upgrading  your  Amiga  to  use  a 

68010 
Mulklim         njtate  an  N  dimensional  cube  wUh  a  joystick 
PigLatrn  SAY  conmand  that  talks  in  Pig  Latin 

Soinpec        Screen  image  printer 
Xlispi.e         source,  docs,  and  executable  for  a  Lisp 

interpreter. 
Fred  n«h  Disk  19: 

Blackjack      lett-orlented  blackjack  game 
JayMlnerSlkles 

Slides  by  Jay  Miner,  Amiga  gr^hkx  chp 

designer,  showing  ftowchart  d  tha  Amiga 

intamals.  In  &tO  x  400. 
KBymap_Test 

test  program  to  lest  Ihe  keymapptng  routines 
LockMon        Find  uncli»ad  file  locks,  lor  programs  that 

dool  dean  uFred  Fiiih  Di»li  M: 
AmigaToAlari 

convens  Amiga  object  code  to  Alail  format 
DiskSatv       program  to  recover  tiles  from  a  trashed 

AmigaDOS  disk. 
Hash  ffltampfeol  Ihe  AmigaDOS  disk  hasliing 

fundion 
Hd  Hex  dunp  utility  ala  Computer  Ijngusqe 

masazine,  April  86 
ManOefirols  Mandebrot  contest  winners 
MulllTasking  Tutorial  and  examples  for  Exec  level 

multitasking 
Pack  strips  whitespaca  from  0  souroa 

PortHandler   sanpla  Port-Handler  program  tha  pertomis. 

Shrwra  BCF^  environment  ckjes. 
Random         Random  nuntier  generator  in  aesemhly,  for 

C  or  assembler. 
SatMoiBe2    Bats  mouse  port  to  nght  or  left  port. 
SpeectiTerm 

terminai  emulaior  with  speech  cap^ililies, 

Xmodem 
TxEd  Demo  editor  tram  Merosmiths  Charlie  Heath 

Ffird  nth  PItk  21 

This  is  a  copy  ot  Thomas  Wlcox's  Mandelbrot  Eat 

Expkirer  disk.  VerygoodI 

Fredn.hPl.k?? 

Tfiis  disk  contains  two  new  'Etrains"  ol  mjcroemacs. 


Lemacs 


Penacs 


version  3.6  by  Daniel  Lawranca,  For  Unix 
V7,  BSD  4,iArriga.  MS-DOS.  VMS,  Uses 
Amiga  fundion  keys,  status  line,  aiscule. 
•tarlup  ttee.  mora. 


By  Andy  Poggk),  New  features  indude 
<ALT>  keys  as  Mela  keys,  mouse  sipport, 
higher  priority,  backi^i  files,  word  wrap, 
function  keys. 

Fred  R.h  Disk  M 

Disk  ot  source  tor  u  icroEmacs.  several  versbns  tor  most 

popular  operating  systems  on  miijos  and  mainrtame*. 

For  people  who  want  to  port  MkaoEmacs  to  their  favorite 

machine. 

Fred  Fl»h  Disk  24: 

Conques        kitsrstallgr  adventure  sinjialion  game 

Csh  ipda<e  to  shea  on  Disk  14.  with  bum  in 

oommands.named  variables,  substnuiion. 

Modula-2       A  piB-release  version  ot  the  single  pas* 

Modula'2  conpUer  origlnalty  developed  lor 
Macintosh  at  ETHZ.  This  ccxJe  was 
transnttied  to  the  AM  IGA  and  Is  executed  on 
the  AMIGA  using  a  special  kiader.  Binary 
only. 

Fred  R.h  Dlik  ?5 

Graphic  Hack  graphic  version  of  Ihe  game  on  dlsk*7&8 

Fred  n.h  Dl.k  26 

UnHun  Prooassas  Ihe  Aniga  ■hunk' kjadlltes. 

Cdlact  cede.  data,  and  bsi  hunks  logather, 
altcws  Indlvloual  specification  ot  raade.  data, 
and  bss  origins,  and  generates  binary  Ilia 
with  format  reminiscBnl  ol  Unix  "a-ounormaL 
The  output  tile  can  be  easily  processed  by 
a  separate  program  to  produca  Molorola  '5- 
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AMIGA 
Software? 


Try  TQa©  IPonlbll, 


Amazing  Computing™  has  vowed,  from  our  begining,  to  amass  the 
largest  selection  of  Public  domain  software  in  tlie  Amiga  Community,  and 
with  the  help  of  John  Foust  and  Fred  Fish,  we  see  a  great  selection  of 
software  for  both  beginners  and  advanced  users. 


These  Public  Domain  software  pieces  are  presented  by  a  world  of  authors 
who  discovered  something  fun  or  interesting  on  the  Amiga  and  then 
placed  their  discoveries  in  the  Public  Domain  for  all  to  enjoy.  You  are 
encouraged  to  copy  and  share  these  disks  and  programs  with  your 
friends,  customers  and  fellow  user  group  members! 


The  disks  are  very  affordable! 


Amazing  Computing'"^  subscribers $6.00  per  disk. 

Non  subscribers $7.00  per  disk 


This  is  extremely  reasonable  for  disks  with  almost  800K  of  information 
and  programs.  If  }'ou  agree,  please  send  check  or  money  order  to: 


PiM  Publications  Inc. 

P.O.  Box  869 

Fall  River,  MA  02722 

Please  allow  4  to  6  weeks  for  deli\'ery 
Amazing  Computing™:  Your  resource  to  the  Commodore  Amiga 


C-kermit 


Ps 

AfCtllC 


programmer.  By  Eric  Black. 

Port  01  the  Kermrt  lila  transler  program  and 

server. 

Dsptay  and  set  process  priorltue 

Yb!  anothef  program  for  bundling  dp  lejd 

Tilas  and  rr^ling  or  poGling  them  as  a  slrH}^ 

file  unH, 

Fr^  n.h  Di»l<  27 

Afldemos       ArrtgaBasic  demos  IromCarolyiiSctieppner. 

N«wConvertFD     creates  .brrape  (rom  M  liteB. 

BitPlanee       finds  addresses  or  and  writes  lo  biplanes  of 
ttta  screen's  txlmap. 

AboulBmaps  is  a  tutorial  on  creation  and  use  ot  bmape. 

LoadlLBM      loads  and  displays  IFF  iLBM  pics. 

LoadACBM    loads  and  displays  ACBM  pics. 

ScreenPrinI    aaatee  a  detro  screen  and  dunpe  it  to  a 
graphic  prinlef. 

Oisassam       Sirrple  68000  disassetrtiler.  Reads 
standard  Amiga  object  lilee  and 
disassemOlee  the  cods  ssdions.  Data 
sections  are  dunped  in  hex.  Tha  aduaJ 
disassemtier  routines  are  set  up  to  be 
callable  trom  a  user  program  so  instructions 
In  memory  can  be  disassembled 
dynarricalty.  By  Bill  Rogers. 

OrorakKaymap    Example  ot  a  keymap  stnjciure  tor  the 
Oorak  keytxjard  layout.  Untested  btjt 
included  because  asserrbly  exarrpies  are 
few  and  far  twtween.By  Robert  Burns  d  C-A. 

Hypooydoids  Sptnjgraph.  trom  Feb.  84  Byte. 

LinssOerno    Exanr'te  ot  proportional  gadgets  lo  Ecron  a 
SuperBUMap. 

MerrExpansnn  Schermlics  and  d  irsdions  tor  building 
your  own  homebrew  1  Mb  rramory 
expansion,  tr/  Michael  Fellinger. 

SafaMalloc     Program  lo  debug  'matlocD'  calls 

SdenceDemos  Convert  Julian  to  so(ar  and  sidereal  lime, 
stellar  positions  and  radial  vebdly  epoch 
calculations  and  (Balllean  satellite  ptollar. 
By  DavkJ  Eagle. 

Fred  R«h  Disk  28 

Basic  gamss  by  David  Addison: 

Backgamrnjn,  Crbbage,  Milestone,  Ottiafto 

DECXIS  *cpp'  C  preprocessor,  and  a 

modilied  'cd  that  knows  about  the  'cpp',  lor 

ManxC. 

Unix-compatble  shell  archrver,  tor  packing 

niee  tor  travel. 

SuperBitMap  Exanple  o(  using  a  ScrollLayer,  syndng 
SuperSitMaps  tor  printing,  and  creating 
dummy  RastPorts. 

Fred  Fish  Disk  29 

AegisDraw  Derrxs  Oatrx)  without  save  and  no  docs. 

Animator  Demo  Player  lor  Aegis  Animator  filesUnlx-iika 
root-end  for  ManxC. 
Tests  for  existance  of  system  resources, 
ruse,  devk»£. 

Animated  Rubiks  cube  program 
Public  domain  Unix  string  library  lunctions. 
VT-1 00  terminal  emulator  with  Kormil  and 
Xmodem  protocds 

Fred  Fish  Disit  30 

Several  sharowa/e  programs.  The  ffljthots  re<iuest  a 

donalian  if  you  find  thetf  program  useful,  so  Ihey  car  write 

more  software. 


Cpp 


Stiar 


Enough 

Rubik 

StrlngLb 

vtioo 


BBS 
FineArt 
FonlEditor 
MenuEditor 

StarTeima.Q 


an  Amiga  Basic  BBS  t)y  Ewan  Grantham 

Amiga  art 

edit  fonts,  by  Tim  Rooinson 

Create  menus,  save  them  as  C  source, 

by  David  Pehrson 

Very  nice  telecommun'cdlons 
tj/  Jim  Nangano 


(Fled  Fish  Disk  #X  is  free,  when  ordered  with  at  least 
three  other  disks  from  the  collection.) 
To  Be  Continued. 

fn  Conclusion 

To  the  t»st  ol  our  knowledge,  the  materials  In  this  ibrary 
are  freely  redistributabre.  This  means  they  were  eVher 
put3iiciy  posted  and  placed  in  the  Public  Domain  by  their 
author,  or  they  have  restrictbns  published  in  ttieir  tiles  lo 
which  we  have  adhered.  If  you  become  aware  ol  any 
violation  of  the  author's  wishes,  please  contact  us  By  mal. 
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Smallest 
footprint. 


Lowest  price. 


Introducing  iA/egra:  The  Amiga 
IVIemory  Expansion  Unit  from 
Access  Associates. 


Alegra:  51 2K  now. 

Now  you  can  add  51 2K  of  external 
memory  to  your  Amiga.  In  the  smallest 
package  available.  At  the  lowest  price 
available:  ^339™,  suggested  retail. 

Alegra  E:  51 2K  now.  2  MB  later. 

If  you'll  need  2  MB  of  memory  in  the 
future,  the  upgradeable  Aiegra  E  is  the 
right  choice  now.  Alegra  E  gives  you 
51 2K  bytes  of  added  memory  with  the 
option  of  2  MB  later."  Because  the 
upgrade  requires  only  internal  component 
changes.  Alegra  maintains  its  slim 
%"-wide  footprint.  The  price:  '379™, 
suggested  retail, 

Alegra  features  a  90  day  parts  and  labor 
warranty  against  manufacturing  defects. 

See  Alegra  at  your  quality  Amiga 
dealer. 

Dealer  inquiries  invited. 


|>1CC£SS 


ASSOCIATES 


491  Aldo  Avenue 

Santa  Clara,  CA.  95054-2303 

408-727-8520 


As  1  Mbii  DHAMs  become  widely  available. 

■* Amiga  'S  S.  tradeniarii  ol  CffTimoOore  Afsvq^,  Inc. 


Bridge  the  communications  gap 
with  a  new  standard  of  comparison 

MacroModem 


Efficient  for  novice  or  exfjert 
On*  keystroke  does  the  work  of  dozens 

•  User  defined  command  macros  —  36  commands  of  35 
characters  each.  A  Macro  may  contain  any  key  code. 

•  Macro  Help  on  a  function  key. 

•  Command  macros  stored  on  disk. 

•  Load  a  new  command  macro  set  while  online. 

•  Xmodem  transfers  —  Check  sum  or  CRC. 

•  Transmit  text  from  a  disk  file. 

•  Capture  a  terminal  session  in  a  disk  file. 

•  Display  the  terminal  capture  file  while  online. 

•  The  20  most  commonly  used  commands  are  invoked  with 
the  Amiga  Function  Keys.  HELP  lists  them. 

•  User  Defined  Phone  Directory  —  36  numbers  per  disk 
file.  Change  directories  while  on  line. 

•  Auto  Dial  —  pick  a  number  from  the  directory  window  or 
enter  it  from  the  keyboard. 

•  Includes  MacroModem  Editor  —  a  multi-window  editor 
for  Macro  and  Phone  files. 

•  Includes  FileFilter  —  a  file  copy  utility  that  ends  file 
format  problems: 

Finds  the  end  of  Amiga  binary  files 
Chops  data  files  to  specified  length* 
Translates  Amiga,  Mac  and  IBM  text  files 
Expands  tabs 
Inserts  or  removes  form  feeds 

•  Unlimited  baud  rates  from  112  to  262,000. 

•  User  selected  serial  capture  buffer  size. 

•  Two  terminal  display  modes  —  TTY  and  ANSI. 

•  Command  mode  with  multiple  commands  on  a  line. 

•  SHELL  command  fur  calling  AmigaDOS. 

•  Multi-window  operation. 

•  NewCLl  —  Create  a  new  AmigaDOS  window  when  you 
need  it,  even  during  File  Transfers. 

•  Runs  From  CLl  or  Workbench. 

•  Requires  256k  and  1  disk  drive. 


Price  $69.95 


Available  Now 


Dealer  inquiries  invited 

Kent  Engineering  &  Design 

Box  178,  Mottville,  NY  13119 

(315)  685-8237 


f^C^^/^  ^^  ^"'^g'  *°  y°"^  compudngi  future. 

Amiga,   IBM,  Macintoth  are  trademark)  of  Commodore  -  Amiga,  Inc., 
Inccmadoniil  Buitnea  Machine*,  and  Apple  Computer,  rapecrivcly. 
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A  member  of  the 

Power  TOOLS 

family  of  professional 

development 
products. 


TO 


J 


The  first  interactive  Amiga  program  design  tool,  P©m(B[fW!im(sl©W^™  lets  you  to 
design  fantastic  looking  windows,  menus  and  gadgets  in  minutes  instead  of  hours  or  days! 
You  show  this  incredible  program  what  you  want  and  it  does  the  rest,  generating  C  or  68000 
assembler  source  code  for  you  to  include  in  your  own  programs.  lP@Wi^srW\\m'^®WJ^ 
is  a  structure  generator  for  a  machine  that  thrives  on  structures.  With  this  software  package 
you  can; 

Pick  the  exact  size  and  position  for  your  windows  visually.  No  more  "wait  to  see  what  it  looks  like"; 
^®lW©i?W3 inflow©  knows  where  your  window  is  and  everything  else  about  ill 

Design  professional  looking  menus.  Add  menus,  move  menus,  or  delete  menus,  whatever  you  want  to  do  with 
text  menus,  our  program  keeps  track  of  Ihem  and  writes  source  code  letting  you  duplicate  them  exactly  with 
simple  operating  system  calls. 

Create  your  own  string,  integer  and  boolean  gadgets  and  position  them  anywhere  in  your  window. 
lP'©MSi}'W]T)^(S>W'S  keeps  them  from  colliding  and  remembers  the  type,  location  and  text  contents 
of  each  one  for  writing  those  complex  gadget  structures. 

Best  of  all,  you  can  keep  your  designs  in  a  format  that  can  be  re-edited,  letting  you  create  your  favorite  type  of 
windows  and  customize  them  for  each  program  you  write. 

Order  Form 
Price  tor   ^©IW©(a^!/3Ti](£]®M8  is  $89.95,  plus  $3.50  for  shipping  and  liandling.    Texas  residents  please  add  6.125% 
sales  tax  1o  total  price. 

Name ^^ 

Address 

City state Zip  _J 


Products  ordered  _ 
Payment  method:     _ 

Card  Number 

Name  on  card  _ 
Enter  total  enctosed: 


MC/Visa 


Check 


Money  Order 


AC 


Signature 


Expiration  Date . 


INDURTRDNICS,    INC. 


1 131 1  Stemmons  Frwy.,  Suite  7 


Dallas,  TX  75229 


214/241-9515 


UNLEASH  THE  AWESOME  POWER  OF  THE  AMIGA! 

The  PAL  is  a  turnkey  expansion  chassis  tiiat  provides  the  most 
powerful  and  cost  effective  hardware  growth  path  for  your  AMIGA. 
Features:  High  speed  direct  Amiga  DMA  controller  and  hard  dislt  • 
Rve  DMA  expansion  slots  •  1  Meg  Ram  with  Clock/Calendar  •  Room 
for  multiple  storage/retrieval  devices  •  100%  compatible  with  current 
and  future  Amigas  •  1  to  8  megabyte  ram  card  options  •  Optional  pass 
through  bus  connector  for  further  expansion  •  Optional  prototyping 
card  •  Future  products  currently  under  development 


BVTE  bu  BVTE. 

3736  Bee  Cave  Rd.,  Suite  3,  Austin,  Texas  78746      i 
(5121328-2985  J 


AMK.A 


AMIGA 


INFOMINDER  is  an  Intelli- 
j  gent  infomiatJon  resource 
that  provides  the  user  with 
instantaneous  access  to  re- 
ference information  stored 
wittiin  ttie  Amiga  personal 
computer. 

Fuly  supports  multi-task- 
ing •  Fast  access  by  menu 
or  outline  ■  Text  capabilities 
include:  Justificatjon. 

Word  Wrap,  Multiple  charac- 
ter fonts'styles  ■  Inlormation 

content  completely  user  definable  ■  Supports  combination  of 

TEXT  and  IFF  GRAPHICS  •  Programmalic  interface  lor  context 

sensitive  help  ■  Narration  and  printing  of  information  •  Expand 

and  shrink  topics. 
INFOMINDER  will  revolutionize  the  way  we  access  textual 

and  graphical  information.  Stop  seardung  and  START  using 

the  information  around  you. 

Special  introductory  price  $89.95 


WRITE  HAND  is  a  general 

word  processor  and  form 

letter  generator  that  gives 

i^  you  the  most  features  lor 

your  dollars.  Developed  to 

meet  the  special  needs  of 

smal     business,     WRITE 

HAND  is  easy  to  learn  and 

easy  to  use. 

WRHE  HAND  chalenges 

"^   you  to  compare  the  following 

—  features  doBar-for-doHar,  fea- 

ture-lor-leature  to  those  of 
other  word  processors  on  the  market  today. 
■  Extensive  on-line  HELP  service  ■  Fonn  letter  generator  ■ 
Powerlul  editing  capabilities  ■  Formats  documents  while  you 
edit  *  Reviews  and  merges  files  whBe  you  edit  •  Moves  blocks 
of  text  and  figures  of  any  size  •  Provides  word  wrap,  holding 
and  underlining 

Make  WRITE  HAND  the  tool  that  moves  your  business  into 
the  productive  world  ol  electronic  word  processing. 
Suggested  retail  price  S50. 


flits 


RNANCIAL  PLUS  Is  the  af- 
fordable way  to  put  your  bus- 
iness at  your  fingertips.  FI- 
NANCIAL PLUS  is  the  com- 
plete accounting  solution 
with  five  systems  in  one: 
■  General  Ledger  ■  Ac- 
counts Payable  •  Accounts 
Receivable  •  PayroO  •  Word 
Processor 
— -  FINANCIAL  PLUS  is 
adaptable.  Vou  customize 
each  company  according  to 
its  size  and  bookkeeping  needs. 

An  easy-to-read,  easy-lo-learn  users  guide  provides 
comprehensive  instructions  for  setting  up  your  own  books, 
Plain-English  menus  are  the  system  "roadmaps"  for  both 
the  novice  and  for  the  more  experienced .  Because  FINAN- 
CIAL PLUS  is  a  totally  integrated  accounting  system,  no 
longer  must  you  purchase  individual  packages,  store  en- 
tries on  separate  diskettes,  or  run  confusing  transfer  prog- 
rams to  obtain  complete  integration. 
Suoaesled  retail  orice  S295.  ' 


